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INTRODUCTION 


This book contains tests/exercises for two different courses, 
Programming RSX-11M in MACRO and Programming RSX-11M in FORTRAN. 
Most of the questions apply to both courses. If a question begins 
with “In MACRO" or “In FORTRAN", that question applies only to the 
specified course. Solutions are provided for all tests/exercises. 
Where it is appropriate, separate solutions are provided for MACRO 
and FORTRAN. Solutions which involve programs should also. be 
available on-line. 


Check the Student Guide in the Student Workbook for your 
course for information on how to use the testS/exercises. 


Using System Services 


TEST /EXERCISE 


Match the function with the type of system service used_ to 
perform it. 


Function Type of System Service 

a. The tasks send data 1. System and task information 
back and forth to 
each other — 2. Task control 

b. The tasks read data 3. Task communication/coordin- 
from a file on disk ation 

c. The tasks get input 4. I/0 to peripheral devices 
from an operator 
at a terminal 5. File and record access 


6. Memory use 


Draw a figure to illustrate a method of providing a_ system 
service through the Executive. 


Using System Services 
TEST /EXERCISE 


3. What is the other method for providing a system service? 


4. Identify two system libraries you might use in writing 
programs that use system services. 


Using System Services 


SOLUTION 


Match the function with the type of system service used _ to 
perform it. 


Function Type of System Service 
3. a. The tasks send data 1. System and task information 
back and forth to 
each other 2. Task control 
5 b. The tasks read data 3. Task communication/coordin- 
—— from a file on disk ation 
4  c. The tasks get input 4. I/0 to peripheral devices 
from an operator 
at a terminal 5. File and record access 


6. Memory use 


Draw a figure to illustrate a method of providing a _ system 
service through the Executive. 


See Figure 1-1 or 1-2 


Using System Services 


SOLUTION 


What is the other method for providing a system service? 


Insert the code into your task. 


Identify two system libraries you might use in writing 


programs that use system services. 
Any two of the following: 


SYSLIB.OLB 
RSXMAC.SML 
RMSMAC.MLB 
RMSLIB.OLB 
FOROTS. OLB 
-F4POTS.OLB 


Also acceptable: 


FCSREF.TSK 
FORRES.TSK 
F4PRES.TSK 

-RMSSEQ.TSK 


Directives 
TEST/EXERCISE 


In MACRO-11 


a. Modify the task READF to use the $C form of the Read Event 
Flags directive. 


b. Modify the task READF to use the $S form of the Read Event 
Flags directive. 


In FORTRAN, modify the task READF to set all of the _ odd 
numbered flags from 1 to 15(18). 


Modify WFLAG and SFLAG to use a global event flag instead of a 
group global event flag. Omit any unnecessary code in the 
tasks. Check with your instructor to find out which event 
flag to use. 


Write a task which does some work and periodically checks a 
group global event flag. Have it display a message and exit 
when the flag has been set. Write another task, or modify 
SFLAG to set the flag. g 


Add a requested exit AST routine to WFLAG. 


In MACRO-11, add an odd address trap SST routine to the task 
SST. Include an instruction which causes the trap to occur. 
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+ TITLE 
IDENT 
»ENARL 


File 


Modified to use the $C form 
directive 


Flass 


Directives 


SOLUTION . 


REAIIF 
SOUS 
LC 


LEX21A.MAC 


* 
y 


of the Read All Event 


Enable lower case 


¥ 9 EX 


This task starts ury sets event flag jy reads the 


event flassy» 


moves 


them into resisters RO-R3 and then 


exits. It uses the $ form of the directive calls. 


The 


flass are 


returned 


word Oo 
word if 
word 2 
word 3 


Bs 


event flags 
event flads 


event flags 
event flags 


follows? 


1-14 

17-32 
33-48 
49-64 


*MCALL RUOAFSCeSETFSeEXITSS es DIRS ¢§ System macros 
+93EX 
FF? > BLEW 4 > Ruffer for event flas 
§ Values 
TF? SETFS 1 > DFR for Set Event Flas 
y cirective 
ART? CLR R4 + Clear error counter 
NIR¢ #SETF > Set event flag i 
RCS ERRA > Branch orn dir error 
ROAFéC BUFF 5 Read the event flaass sEX 
; C1 - 64). 
BCS ERR2 § Branch om dir error 
MOV BUFF y RO 5 Move the event flag 
MOV BUFF +2 sR1 5 values into the 
MOV BUFF 44 9R2 5 resisters 
MOV BUFF +6 9R3 
IOT i Trar and disrelay 
y resisters 
Come here on directive errors 
R23 INC R4 5 R4=2 for read error 
R13 INC R4 * R4=1 for set event 
5 flags error 
MOV $lISWy RO § Error code into RO 
TOT > Trae and disrlay the 
3 registers 
»END START 


1.b 


rary 
CN ENR CO DSO 


dd 


Ree ee 


+ 


“Gr “Sh > Sr “SP Sr > SP “EP SP “SP SP SP > “SP SEP “EP 


Directives 


SOLUTION 


*TITLE REAIF 
eINENT /017 
eENABL LC * Enable lower case 


File LEX21B.MAC 


Modified to use $$ form of the Read All Event Flags $¢5EX 


directive 


This task starts urs sets event flags il» reads the 
event flessys moves them into resisters RO-R3 and then 
exits. It uses the $ form of the directive calls. 


Tne fless gre returned as follows? 

1-16 
17-32 
33-483 
49-64 


= event flags 
= event flags 


0 
1 
2 = event flags 
3 = event flags 


word 
word 


word 
word 


«MCCALL ROAFSSrsSETFSeEXITSSsRIRG § Sustem macros 
99EX 
BUFF ¢ + BLKW 4 s Ruffer for event flas 
§ Values 
SETF? SETFS 1 + DFR for Set Event Flas 
3 directive 
START? CLR 4 5 Clear error counter 
NIRG  #SETF © > Set event flag 1 
BCS FERRI § Branch on dir error 
RDOAFéS #BUFF + Read the event flads 
3 (1 - 64). y9EX 
RCS ERR2 $ Branch on dir error 
MOV BUFF y RO © ¥ Move the event flas 
MOV BUFF +2 eR1 5 Values into the 
MOV RUFF +49R2 3 registers 
MOV BUFF +49 h3 
IOT 3 Trar and disrlay 
; resisters 
y Come here on directive errors 
ERR2! INC R4 : i; R4=2 for read error 
ERRI 3 INC R4 + R4=1 for set event 
3 flags error 
MOY $USWs RO > Error code into RO 
LOT § Trar and diselay the 
5 resisters 
«END START 


PSO ND OS ORI 


ia NOAGAIIrannan 


309 


10 
20 
C 


30 
4Q 
C 

10 
10 


11 
11 


Directives 


SOLUTION 


READIF «FTN 
File LEX22,.FTN 


Modified for exercises. Set odd mumbered flags. 


This task sets event flag 1 and then reads 
flass 1 to 16 and disrelays them 


INTEGERK2 TEVF (146) T0SW 
Set odd event flags. 
ng S KeLlyilSs2 
CALL SETEF (Ke TOSW) 
Branch on directive error 
IF ¢10SW .LT. 0) GOTO 1000 
CONTINUE 
Read the event flass into the grray ievf. Note 


PIEX 


1 1EX 
1'EX 
1lEX 


PtEX- 


that im FORTAN:s we can only read 1 flas at a time 


NO 20 T=1916 
CALL REATEF (I»TINSW> 
Kraneh aon directive error 
IF CinSW «LT. 0) GOTO 1100 
Check I0SW value» 2 means set» O means clear 
Sat the ievf value accordingly (C1 means sety O 
means clear) 
TF ¢tnNSW .EQ. 2) GOTO 10 
TEVF CTd=TOSwW 
GOTO 20 
TEVF CT) =1 
CONTINUE 
Write out flas settings» starting with flags 16. 
WRITE (5%30) 
FORMAT ¢€’ EVENT FLAGS 16. TO 1. ARE? ’) 
WRITE (€5»40) (TEVF CJ)» Je1lév1ls-1) 
FORMAT ¢€¢% ‘“s16T2) 
CALL EXIT 
Come here om directive errors 
00 WRITE ¢€3%1010) Tosw 
10 FORMAT ¢¢ ERROR SETTING FLAG. ERROR CONE 
CALL EXIT 
00 WRITE (S¥1110) TDSW 
10 FORMAT (¢’ ERROR READING FLAG. ERROR CONE 
CALL EXIT 
E-NII 


# 


u 


SONA CID WRIH 


Directives 


SOLUTION 


*TITLE WFLAG 
*IDQENT /01/ 
eENABL LO | ¥ Enable lower case 


+ 


FILE LEX23A.MAC 
Modified to use dlobal event flas 35. g9EX 


This rrosram creates the sgroure sglobal event flags,» 
clears event flas 65. and waits for it to be set. When 


the flags is set it writes @ messade and exits. 
Assemble and task-build instructions? 


=MACRO/LIST/OBJECTIWFLAG LE? L1yLIFROGMACS/LIBR-§ sEX 
~SARY ydevilufdILEXx23A 


SLINK/MAF WFLAGs LEI Cl» LIFROGSUBS/LIBRARY 
Install and Run instructions? 


Rum WFELAGs then rum SFLAG. At least one af the 
tasks must he installeds or else the RUN command 
will try to install both tasks under the same 
mamey TTririe 


Sh S> Wr “SP E> SP “TP SR MED D> “EP “GP “Gr “Ed EP SBP E> > “Erm SP E> “EE 


i 


»MCALL EXITS&S»sWTSESC»CLEFSC rCRGFSC + Sustem 
$ macros 


*MCALL TYFE ¢ Surrelied macro 
START? CLR RO § RO used to identify 
5 the error 
TYPE <CLEAR ANI THEN WAIT FOR EF 35. TO RE SET> 
73 EX 
CLEFSO 35. + Clear event flas 35.5 EX 
RCS ERR2 + Kranch on directive 
5 error 
WISE¢C 35. § Wait for event flags 35 
5 to he set 99 EX 
RCS ERR3 ; Branch on directive 
¢ error 
TYPE “EF 35. HAS BEEN SET. WFLAG WILL NOW EXIT? 
¥ SEX 
EXITS 
ERRS? INC RO > RO = 3 if error on 
§ wait for dir 
ERR23 INC RO ¢ RO = 2 if error on 
* Clear flas dir 
MOV $0SWsR1 § Flace DSW in Ri 
TOT § Trar and dum resisters 


*END START 


18 


ie ie 


oh bb Gi 


ON & 


IAIAWgaANM Oma A7 


ro 
o 


+ 


“Ch “Sh “Sr Sh “E> “AP SP “Sr “SD S> GP “Ed 


Directives 


SOLUTION 


FROGRAM WFLAG 
PYLE LEX23A.FTN 
Modified to use event flas 35(¢10) PtEX 


This task creates the srour global event flassy and 
then clears event flag 65. and waits for it to he set. 
When the flag is set» it writes a messase and exits 


Install and run instructions? 


Rum WELAGy then run SFLAG. At least one of the 
tasks must be installed, or else the RUN command 


will tre to install both tasks under the same 
name CTTmnm 


WRITE (S920) 


FORMAT ¢(° CLEAR AND WAIT FOR EF 35. TO BE SET’) !'!IEX 
CALL CLREF (35»%T0SW) _ EEX 

IF ¢(1uSW LT. 0) GOTO 1100 

CALL WAITFR (35rT0SW) PItEX 


IF (TOSW .LT. 0) GOTO 1200 
WRITE (S30) 


FORMAT (’ EF 35. HAS BEEN SET. FWAIT WILL NOW EXIT’) 


PlEX 
CALL EXIT 
Error rFrrocessing 


00 WRITE (Sv9i110) T0SW 

10 FORMAT ¢° DTRECTIVE ERROR CLEARING EVENT FLAG 35. 
1 USW = “’»IS) PIEX 
CALL EXIT 

00 WRITE (Ss1210) TSW . 

190 FORMAT (% DIRECTIVE ERROR WAITING FOR EVENT FLAG 
1 35. USW = ’»ITS) 
CALL EXIT 
E-NIt 


*TITLE SFLAG 
eIDENT /01/ 


*+ENABL LC Enable lower case 


“a> 


FILE LEX23B.MAC 
Modified to use event flags 35. ¥9EX 


This task sets event flag 65. It assumes that the 
¢rour global event flass have already heen created. 


Assemble and task-build instructions? 


MACRO/LIST LEI C1» IFROGMACS/LIBRARY »devi CufdISFLAG 
LINK/MAF SFLAG» LES Cl» LIPROGSUBS/LIBRARY 


ll 


Directives 


SOLUTION 


16 ; 
17 ¢* Install and Rum motes? 
18 ; 
19 9 First rum WELAGs then rum SFLAG. At least one of 
20 $ the tasks must be installeds or else the RUN 
2 3 command will try to install both tasks under 
ein , the same nmnamer TTmm. 
23 3 
24 ie 
ad «eMCALL EXIT#SsSETFSC ¥ Sustem macros 
26 *MCALL TYPE * Surrelied macros 
a? ; 
28 START? TYFE “EF 35. IS BEING SET. THEN SFLAG WILL EXIT.> 
29 . 99 EX 
30 . SETF&e 35. § Set event flad 35. #sEX 
Si RCS ERR ¢ Branch on dir error 
32 EXITSS ¢ Exit 
33 ERR? MOV $0SWseRA i Save NSW 
34 IOT ¢ Trar and dume resisters 
30 «ENT START 
t FROGRAM SFLAG 
2 Cc 
3 C FILE LEX23B.F TN 
4 C 
9 C Modified to use event flags 35. . b1EX 
é C 
? C This task sets event flags 65. It assumes that the 
8 C sgrour global event flass have already heen created. 
9 C 
10 C Install and rum instructions? 
11 ib 
12 te Kur WFELAGs then rum SFLAG. At least one of the 
13 C tasks must be installeds or else the RUN command 
14 Cc will tre to install both tasks under the same 
18 . name (TTrm>. 


WRITE (S210) 


be et te 
SONI & 


10 FORMAT (¢’ EF 35, IS BEING SET. THEN SFLAG WILL EXIT‘) 
C PlEX 
ag , CALL SETEF (35»T0SW) PIlEX 


C The SW value returned for SETEF is 2 if it was set 
eae C and O if it was clear. A 1 is NOT returned for success 


23 IF ¢(IT0SW .LT. 09 GOTO 1000 

2A CALL EXIT 

2d C Error code 

26 L000 - WRITE (5$»¥1010) 

2? 1O10 FORMAT (’ DIRECTIVE ERROR SETTING EF 35. DSW = ¢ 
28 lyI4) 1YEX 
29 CALL EXIT . “8 


30 END 
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CSMOn DB CED Ors 


“Gb “ib “ED “SD “E> “E> “Ch “ED “ED “EP “Ch “> “ED “G> Sh SP “HD SED “E> “EP ED 


ST 


a 
¥ 
a 
¥ 


OK 


AG 


¥ 


LO 


Directives 


SOLUTION 


~TITLE LEX24- 
*IQENT. #017 
*ENABL | LC - g Enable lower case 


FILE LEX24.MAC 


This rrogram creates the sgrour global event flags, 
clears event flags 65.* does some work and reriodically 
ceheks event flas 65. When the flas is set it writes 2 
message and exits. 


Assemble and task-huild instructions? 


MACRO/LIST/OBJECTIWFLAG LEI Cl, LIFROGMACS/LIB-# ¢ EX 


RARY sy devs CufdLExX2e4 HEX 
LINK/MAF WFLAG sLEBS C1» 1IPROGSUBS/LIBRARY 


Install and Run instructions: 


Rum WFLAG:s then rum SFLAG. At least one of the 


tasks must be installed: or else the RUN command 
Will try to instell both tasks under the same 
names TTritts 


»+MCALL EXIT#S»sWTSES¢CreCLEF SC eCRGFSEC ¢ Sustem 
3 MBCTOS 


*MCALL TYFE § Surrelied macro 
ART? CLR RO + RO used to identify 
§ the error 
TYPE XLEX24 IS CREATING THE GROUP GLOBAL EVENT 
CRGOF €60 § Create srour stlobal 
> event flags 
RCC. OK > Branch on directive ok 
If srour slohal event flads already exists 
Just disrelay message and continue 
CMF $USWy IE. RSU 3’ Check for efs already 
§ im existence 
BNE ERRIL * Branch on any other 
¢ dir error 
TYFE <GROUF GLOBAL EVENT FLAGS ALREADY EXIST: 
; TYPE XCLEAR EF 63. WORK UNTIL IT IS SET> 
CLEFEC 63. § Clear event flags 65. 
RCS ERR2 § Branch on directive 
> error 
AIN? CLR Ri s Clear counter + ¥EX 
Loor 2KK146 timess then check flag ¥9EX 
OF? INC a y Increment counter ##5EX 
ENE LOOF § Not vet excleds loorssEX 
§ asain 99 EX 


13 


FLAGS> 


Sl 
we 
a3 
v4 
3, Ge 


wed 
36 
a7 
v8 
ug? 
60 
61 
62 
63 
64 
65 
66 
6&7 
68 


is Be 


a 


4 


rome] 
. 


5 


fom] 
Ne 


ry om: 
Se Oe 


¢ 


ry 
. 


TYPE 
CLEF$C 


BCS 
CMF 


BNE 


TYPE 

EXIT$S 
ERR 3% INC 
ERR2 ¢ INC 


ERR1 INC 


MOV 
TOT 


e ENT! 


Directives 


SOLUTION 


COUNTER HAS CYCLED: ¢ Dtiselay messages sF 
y 


635. ¢ Use Clear to read fleas 
ERRS § Branch on dir errors sEX 
$UiSW»s#tIS.SET ¢ IS.SET means flas was EX 
5 set 99 EX 
AGAIN + Nov loor asain ¥ ¥EX 


“EF 65. HAS BEEN SET. LEX24 WILL NOW EXIT: 
RO RO = 3 if error om #sEX 
Clear Flag dir while 

waiting 

RO = 2 if error on 
clear flags dir 

RO = 1 if error on 
create srour flags dir 

Flace NSW in Ri 

Trae and dumr resisters 


RO 


RO 


$0USWeR1 


“> SP S> SP SP “> SP Sd SP 


START 


PROGRAM LEX24 


FILE LEX24.F TN 


This task 


creates the srour global event flags, and 


then clears event fleas 65. and does some work while 


Weiting for 


it to be set. When the flas is sety it 


Writes 8 Message and exits 


Install and run instructions? 


Rum LEX2S4y then rum SFLAG. At least one af the 
tasks must be instelleds or else the RUN command 


wilt 
name 


try to install both tasks under the same 
CTTrinm) 


14 


dae 


AQ 
OY) 


oa 


ees 


we 
5.3 
a4 
ae) 


ra 


57 


Boe Kee 


30 


C Error 
G 

C Check 
900 
C In th 
910 


Cc Here 
1000 
19010 


1100 
L114 


L209 
L210 


Directives 


SOLUTION 


WRITE (S910) 
FORMAT (€° LEX24 I$ 


CALL CRGF 
IF CIynsw 
WRITE (S920) 
FORMAT (¢7% 
CALL CLREF 
IF CI0SwW «LT. 
NO 25 Rely 65535 
CONTINUE 

WRITE (S228) 
FORMAT ¢% COUNTER 
CALL REATIEF 
IF ¢TNSW UT. 
IF (TSW .NE. 
WRITE (S930) 


Cv INSW) 
ol Te 


(65% TSW 


FORMAT (¢€¢ EF 635. HAS BEEN SET. LEX24 WILL 


CALL EXIT 
Frpacessims 


for code of «17» 
IF ¢inSW .NE. 
at cases 
WRITE ¢S»910) 
FORMAT ¢7 
GOTO 2&3 
For fatal errorsy 
WRITE (Se1O10) THSw 
FORMAT ¢¢ DIRECTIVE 
TEP‘ ?S. IGSW = “9 TS) 
CALL EXIT 

WRITE (S110) ToOSW 
FORMAT ¢€7 DTRECTIVE 
1 omSW = “»9TS) 

CALL EXIT 

WRITE ¢€Se1210) TOSW 
FORMAT ¢¢ DIRECTIVE 
1 65. USW-= “9 TS) 
CALL EXIT 
E NY 


CLEAR EF 6S. 


HAS 
CSS 9 TSW) 
QO) GOTO 1 

2) GOTO 22 


CREATING 


02} GOTO 900 


) 


0)? GOTO 1100 


OFS 


ERROR 


ERRORS 


EFRON 


iD 


WORK UNTIL 


200 


THE GROUP GL. 


It tS 


CYCLED’ > 


CREATING GROUP 


CLEARING EVENT 


READING EVENT 


ORAL. 
PiFX 


SET “> 


PrEX 
PlEX 
PIEX 
PItEX 
PIlEX 
PlEX 
PlEX 


NOW 


meaninsa flass already exist 
~17) GOTO 1000 
JUSt gislav s message and continue. 


diselay messese and exit 


EVENT FLAGS”) 


EXIT’) 


GROUP GLOBAL EVENT FLAGS ALREADY EXIST’) 


GLOBAL 


FLAG 


FLAG 
PIlEX 


ES « 


SONA CUD Whe 


Directives 


SOLUTION 


*TITLE WFLAG 
*IDENT /01/ 
*ENABL LC 


+ 


FILE LEX25.MAC 


the fleas is set it writes 


RARY sdevilufdILEX2s 


namey TTrin. 


“S> “Gb “Sb “Se “Sp “Sh “Srp “Sh Bh WP Eh SP ‘EP “SP > “E> CP E> “EP “SR “E> SD 


This rrogram creates the srour 
clears event flags 65. and waits for it to be set. When 
B messede and exits. 


Install and Run instructions? 


*MCALL SREASC *ASTX$S 


*MCALL TYPE 
START? CLR RO 


SREASC REXAST 


¢ Enable lower case 


“a> ‘ep 


S> “E> G> Sd “E> 


Modified to include @ Reauested Exit AST 


Assemble and task-build instructions? 


MACRO/LIST/OBJECTIWFLAG LBi C1» TIPROGMACS/LIE- 


*MCALL EXITSS»WTSESC »CLEF SC > CRGFSC 


System Mac 
Surelied m 


RO used to 

the error 
Set ur Rea 
AST 


Slobal event flassy» 


LINK/MAF WFLAG»L Bi Cit IFROGSUBS/LIBRARY 


Rum WFELAGs then run SFLAG. At least ane of the 
tasks must be installed» or else the RUN command 
Will try to install both tasks under 


the same 


y Sustem 

y MBCroas 
ros SEX 
acro 


identify 


uested Exit 
SSEX 


RCS ERRO Branch on dir error 
TYFE “WFLAG IS CREATING THE GROUF GLOBAL EVENT FLAGS: 
CRGF €C § Create srour slobal 
§ event fless 
RCC OK § Branch on directive ok 


a> “> 


If srour sglobal event flags already exists 
Just disrlay message and conmtinue 


CMF $OUSWry#tIE.RSU ¢ Check for efs already 
> in existence 
BNE ERR1 § Branch on any other 
y dir error 
TYPE <GROUP GLOBAL EVENT FLAGS ALREADY EXIST: 
OK? TYPE “CLEAR ANTI! THEN WAIT FOR EF 65. TO BE SET? 


CLEFSC 65. 
BCS ERR2 


16 


“> “> “Ed 


Clear even 
Branch on 
error 


t fleas 65. 
directive 


-EXAST? TYPE 


ERRO? MOV 


AMAA AHAAHAAAA Ini 


a 


Directives 


SOLUTION 


WTSE$C 65. ¢ Wait for event flad 65 
y to be set 
RCS ERRS ’ Branch on directive 
y error 
TYFE “EF 635. HAS BEEN SET. WFLAG WILL NOW EXIT> 
EXIT$S : 


AST Service routine 
WHY ME? NOT THIS TIME! I> ¢ 


99 EX 


Tyre messase 


5 EX 


AST exit to return #FEX 


air 


-ASTX$S 
R33 INC RO RO = 3 if error on 
wait for dir 
ERR23 INC RO RO = 2 if error on 
clear fles 
ERR? INC RO KO = 1 if error on 


SLISW se R1 


b> “E> “Ss “> “E> “EP “EP SP “Ah EP ‘Ed 


TOT 

«ENT START 

FROGRAM WFLAG 
FILE LEX25.FTN 


Modified to include a Reauested Exit AST 


create srour 
Flace [1SW in 
RO=0 for srecifu ¥FEX 
reauested exit AST err 
Trae and dum 


flags dir 
Ris leave 


resisters 


PlEX 


This task crestes the grouse global event flass», and 


then clears event flags 65. and waits for it 


When the flas is sety it writes 2@ messede 


Install and rum instructions? 


to he set. 
and exits 


Rum WFLAGs then run SFLAG. At least one of the 


tasks must be installed»s or else the 
will trys to install] both tasks under 
name COTTrm 


EXTERNAL REXAST Plex 
Set ur Reauested Exit AST riEX 
CALL SREA CREXASTsI0NSW) | LtEX 
IF (INSW «LT. 0) GOTO 950 PtEX 


WRITE (S910) 


FORMAT ¢% WFLAG IS CREATING THE GROUF 


CALL CRGF (¢*ITSW) 

IF (IOSW .LT. 0) GOTO 900 

WRITE (S20) 
FORMAT (¢’ CLEAR ANTI WAIT FOR EF 65. 
CALL CLREF (65+/T0SW) 

IF (T0SW .LT-+ 0) GOTO 1100 

CALL WAITFR (65sTI0SW) 

IF ¢(I0SW «LT. 0) GOTO 1200 

WRITE (5%30) 


Ad 


RUN command 


Same 


GLOBAL EVENT FLAGS”) 


TO BE SET’) 


30 


Directives 


SOLUTION 


FORMAT (’ EF 65. HAS BEEN SET. FWAIT WILL 


CALL. EXIT 


C Error rrocessing 


C 


NOW EXIT’) 


C Check for code of ~-17» meaning flags already exist 


700 


C In that casey 


910 


C Here for fatal errorsy 


950 
960 


1000 
1010 


1100 
1110 


1200 
1210 


AST 


OD 


C Set 


IF (INSW .NE. ~17) GOTO 1000 


WRITE (39910) 


FORMAT (’ GROUF GLOBAL EVENT FLAGS ALREADY EXIST’) 


GOTO 15 
WRITE (599460) I0SW 


FORMAT (’ DIRECTIVE ERROR SETTING UF AST ROUTINE. 


1 DSW = ‘’»IS) 

CALL EXIT 

WRITE (Sr1010) IDSW 

FORMAT (”% DIRECTIVE ERROR CREATING GROUF 
1EF’’S. DSW = “»IS) 

CALL EXIT 

WRITE (591110) T0SW 


diselay messade and exit 


Just dislay a messaese and continue. 


1EX 


EX 
VEX 


GLOBAL 


FORMAT (’ DIRECTIVE ERROR CLEARING EVENT FLAG 


1 USW = ’»IS) 
CALL EXIT 
WRITE (S91210) TSW 


FORMAT (”% DIRECTIVE ERROR WAITING FOR EVENT FLAG 


1 63. [DSW = “’»TS) 
CALL EXIT 
ENT 


SUBROUTINE REXAST 
service routine 


INTEGER FLIST(6)*TOWVE 
REAL TEXT1(6)*TEXT2¢7) 
TATA IOQWVE/"11000/ 
TATA TEXT1 /’TRYI’:s’°NG T’s’O AB’» 
1’ORT ’»’ME ’s’EH? ¢%/ 
VATA TEXT2 /’°WE W’»’ON’ ST’ +’ LET’ 
1’ YOU’s’ THI’s’S TI’s’ME! ¢/7 

ur for QIO directive 
CALL. GETAIRCPLIST(1)*TEXT1I¢1)) 
PLIST(2) = 23 
FLIST(C3> = "40 

QIO directive to disrlay tex 
CALL WTQITOCTOWVBs Sets» »PLIST) 

ur for 2nd line of text 
CALL. GETADRCPLIST(C1)*sTEXT2¢1)) 
PLIST(2) = 27 

QIO directive to disrlay text 
CALL WTQIOCIOWVB:Se1s9+FLIST) 
RETURN 
ENT 
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ee en ee a, re wn an. rane ani 


LEX 
1EX 
lEX 
EX 
EX 
EX 
1EX 
'EX 
1EX 
1EX 
1EX 
1EX 
!EX 
EX 
EX 
f'EX 
1EX: 
'EX 
1EX 
1'EX 
1EX 
IEX 
EX 
1EX 
1EX 


nN DH Ch DO Re 


“ap > Gd Eh Sh SSP Sd Se SP E> > “EP > “ED “EP “Gh “CD “CP 


Directives 


SOLUTION 


*+TITLE SST 
+IDENT /01/ 
*ENABL LC > Enable lower case 


FILE LEX26.MAC 
Modified to include an odd address trar 9 9EX 


This task sets ur an SST vector table to handle SST’s 
for BFTy TOT? and odd address trars. It then executes 
instructions to cause these trars to occur. In each 
SST routines &@ messasde is disrlayed and then the task 
continues. Finally: a TRAF instruction is executed, 
Since mo user SST routine is srecified for TRAF: the 
Executive aborts the task. 


Assemble and task~-huild instructions? 


MACRO/LIST LEi C1» 1IPROGMACS/LIBRARY sdevi CufdILex2d 
LINK/MAF LEX269L Bi C1» 1 IFROGSUBS/LIBRARY 


»MCALL SVTKSC EXITS § External system macros 
+MCALL TYFE § External surelied macro 


5 
VTABLE? «WORT ONUTRP »MFTVIOsBF Ts TOT § SST vector table 


; ¥3EX 
START? SVTK$C VTABLE»4 > Have Executive set up 
+ SST table - 
BRET + RFT instruction 
TST 1 § Test location ly» #FEX 
$ causing an odd F#sEX 
> addr trar ¥FEX 
CLR 120000 * Clear location 120000» 
y Causing @& memory 
y+ Frotect violation 
TOT ¢ TOT instruction 
EXITS y Exit. 
NEW? TRAF § TRAP instruction 
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“WO G8 S GI fo: 


CHOI Ut 


~ 
pS 8 


Directives | 


SOLUTION 
§ SST routines 
9 
OQONTRES TYPE <O00 ANDRESS TRAF CAUGHT? ¢ Tyre ¥9EX 
§ Messase #FEX 
RTI § Return from trar ¢3EX 
MFTYVIO? TYPE “MEMORY PROTECT VIOLATION CAUGHT: + Tyre 
+ mMmessade 
CMF (SPO +s (SPO+ + Clean off three 
TST (SF) + > Srecific stack words 
+ for memory rrotect SST 
RTI 9 Return from trar 
RFT? TYPE <BPT CAUGHT: § Tyre messade 
RTI y Return from trar 
TOT? TYPE “IQT CAUGHT: ¢ Tyre messade 
MOV #NEWy (SF) § Chanse FC on stack so 
§ return from trar 
F] returns to NEW 
RTI s Return from trar 
» ENE! START 
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Using the QIO Directive 
TEST/EXERCISE — 


Modify SYNCHQ or ASYNCQ to write prompting text (e.g., "TYPE 
SOME TEXT: ") before issuing the read. 


In MACRO-11, modify NUMER, replacing the error handling code 
with code which writes out an error message plus’ the 
appropriate status code. Refer to SYNQER for sample error 
messages. 


Modify NOECHO to use one QIO directive to both write the- 
prompt and read the input. Also, have the read timeout if no 
key is struck for 28(18) seconds, in which case, display a 
timeout message and exit. 


Write a task which prints a message on every terminal in the 
system. The task should break through any pending I/O at the 
terminal. (Note: This task must be task-built as a 
privileged task, using the /PRIVILEGED:@ qualifier in the 
task-build command; /PR:@ in MCR) 
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MGnN AUG DUE 


+ 


i 


“C> Wr “Srp “S> “> “Grp Gr SP SP VP 


*+MCALL QIOWSCsQIOWSS*EXIT#S ¢ External sustem 
y MmHBCTOS 
LOSE? + BLAKW 2 * I/0 Status Block 
BUFF? + BLAKE 80, § Text buffer 
PRMPT: ASCII STYFE SOME TEXT? 7 § Fromet ¥3EX 
LERMFT =.-PRMPT ys Length of frromret EX 
+EVEN #5 EX 
START? CLR RS y Error Count 
CLR R4 y Error indicator ~- 0 
y means directive error 
§ (NSW in R3>» nes 
y means I/O error 
§ (I/O status in RS? 
QIOWS$C TO.WVBsSr1+7TOSBs s <P RMP TsLERMPT 40> 
¢ Display rromet #9 EX 
BCS ERR § Branch on dir errorssEX 
TSTE IOSE * Check for I/0 errors sEX 
BELT ERRSA § Branch om I/0 errors sEX 
QIOWSC ITO.RVEsSel+»ITOSKRy»<BUFF,*80.> ¢ Issue 
> read 
RCS ERR1 ¢ Branch on dir error 
TSTE IOSE + Check for I/0 error 
BLT ERRIA + Branch on I/O error 
MOV IOSB+22R0 § Get count of characters 
> tured in 
CLR Ri § Offset into buffer to 
¢ character 
LOOF CMFE RUFF (RI) +#°A * Check for urprer case 
y+ ASCII character 
BLT NEXT ¢ Branch if below range 
CMF R BUFF (R1) + #°2 
RGT NEXT ¢ Branch if ahove range 
* Here if urrer casey move to resister R2 and convert 
MOVE BUFF (CRI) »R2 + Move to resister 
ALL #324 9R2 y Convert to lower case 
MOVE R2»s BUFF CRI) ¢ Rerlace im messaese 


Using the QIO Directive — 


SOLUTION 


*TITLE SYNCHQ 
*IQENT /01/ 
sENABL LC 3 


Enable lower case 


FILE LEX31.MAC 

Modified to disrelay rromreting text ¥3EX 
This task reads a line of text from the terminals 
converts all urrer case characters to lower casey and 


Frints the converted messade back at the terminal. It 
uses sunmchronous QI0O directives. 
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NEXT 


Error 


a> “> “E> 


ERRSAs 


ERR2A$ 
ERRIAS 


ERR3 3 


ERR2 $3 
ERRI 3 


INC 
SOR 
QTOWSS 


RCS 


-TSTR 


BLT 


EXITSS 


code 


INC 


INC 


INC. 
MOVE 


NEC 
TOT 
INC 
INC 
INC 
MOV 


IOT 


SOLUTION 


Ri 
RO»LOOF 


a 
, 
a 
9 
& 
, 
a 


’ 


Using the QIO Directive 


Increment offset into 
buffer to next char 

Tlecrement count of 
characters left to check 


#IO WVBR #528128 LOSB, » #BUFF »y TOSKR+2 » €40> 


ERR2 
IOSB 
ERR2A. 


RS 


RS 


RS 


ITOSBsR3 


R4 


RS 
RS 


$0SWrkhS 


«END START 
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“S> Srp > “Q> © 


‘T/O error, 


- to R3y» 


“Sr “> 5h E> “E> “EP “E> “EP A> “EP “EP “CP “SP “EP “CDP Co Gr “E> 


Write text 


Rranch on dir error 


Check for I/Q error 
Branch on I/0 error 
Exit 


RS=3 means Fromet QIO 
error ¥ 3 EX 
Ur error count ~- 2nd QI0 
~ Ist QI0 
I/O status 
to RS. : 
Nesative value in R4 
neans I/O error 
Trar and disrlay 
registers 
RS=3 means Fromet ATO 
error 9 9EX 
Ur error count - 2nd QI0 
~ Ist Qro 
Tirective error. DSW 
leave R4=0. 
Trae and disrlay 
resisters 


WON ROADS A Re 


Using the QIO Directive 


SOLUTION — 


FROGRAM ASYNCQR 
FILE LEX31.FTN 
Modified to diselay rrometing text — 'lEX 


This Frosgram reads a line of text from the terminals 
converts anv urrer case characters to lower case and 
rrints the converted message back at the terminal. 
It uses esyunchronous QI0s and an event fleas for 
synchronization. 


AOANAAAKIAaAAII 


RYTE ITOSK(4)»IBUF (80) 
QIMENSION TFARC6) sKC10) 
EQUIVALENCE (NUM+sTOSE(3)) 
REAL FRMFT¢4) 1'EX 
DATA PRMFT /’°TYPE’:s’ SOM’s’E TE’s’XT? “/SITEX 
VATA ITOWVE/"11000/ 
TATA TORVE/ "104007 
DATA IVFC/"40/7 
C Set ur values for the QI0 
IUNIT#=%& 


C Set ur for QIO to issue rromet .- 1lEx 
CALL GETADR¢CTFPARC1I) » PRMFT C19) 1IEX 
IFAR(2)=16 PlEX 
IFAR(3)="40 PtEX 

C Issue asynchronous write PIEX 
CALL. QIOCTOWVRyIUNITs Ss» TOSKRy ITFAR, INS) PlEX 


t 
1 
! 
i 
} 
i 
IF (Ins «LT. 9) GOTO 780 11EX 
t 
i 
t 
i 
i 


CALL WAITFR¢SsI0S) 1I1EX 
IF (18S «LT. 0) GOTO 785 PlEX 
IF (IOSB(1) JLT. 0) GOTO 7906 Plex 
C Set ur for read 1IEX 
IPF AR (3)=0 PIEX 


IFAR(2)=80 
C Get the address of the I/0 buffer 
CALL GETADR¢CIFARCL) » IBUFC1)> 
C Issue the QIO 
CALL QLIOCTIORVB»yIUNITs Sy +s ITOSByIFARs TOS) 
C Check the directive status — "sh 
IF (Ins .LT. 6) GO TO 800 
C To some work while I/O oreration is being rerformed 
nO SO I=1+*10 


KCI) =64xT 

30 CONTINUE 

C Wait for I/0 to complete 
CALL. WAITFR(SsTI0S) 

C Check directive status 


IF (10S .LT. 0) GO TO 8OS 
C Check the I/0 status 
JF ¢(IOSK(1)>) LT. 0) GO TO 810 
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Using the QIO Directive 


SOLUTION 


C Convert to lowercase 


100 


00 100 IT=1»NUM 

IF (IBUFCT) LT. ’A’%) GO TO 100 
IF (IBUF (I) «GT. "132) GO TO 100 
IBUF (T)=IBUF(I)+32 

CONTINUE 


C Set ur I/O Parameter List for write 


C Write 


C 


IPAR(2)=NUM 

IFAR (C3) =IVFC 

the converted line to the terminal 
CALL QIOCTOWVByIUNITs Sy» TOSKsIFARs INS) 
Check directive status 

IF (10S «LT. 0) GO TO 820 


C Wait for the I/0 to comrlete 


C Check 


C Check 


CALL WAITFR(SsINS> 

directive status 

IF (10S .LT. 0) GO TO 825 

the I/0 status 

IF (IOSE(1) .LT. 0) GO TO 830 

GO TO 850 

WRITE (S880) 10S !I1EX 
GO TO 850 PlEX 
WRITE (S,*885) 10S !1EX 
GO TO 850 ! 
WRITE (S»890)ITOSRC1) !I1EX 
GO TO 850 ! 
WRITE (S900) TRS 

GO TO 8350 

WRITE (Ss 90S) 10S 

GO TO 850 

WRITE (S910) IOSKC1) 

GO TO 850 

WRITE (Sr920) 10S 

GO TO 850 

WRITE (S925) 108 

GO TO 850 

WRITE (359930) TOSE(1) 

CALL EXIT 

FORMAT(’ DIRECTIVE ERROR ON WRITE OF FROMPT» 
1 CONE = “»T4) 

FORMAT (‘DIRECTIVE ERROR ON WAIT FOR WRITE OF 
1FROMFPT, CODE = ‘»I4) 


f:LEX 
PIEX 
1IEX 
IEX 


FORMATC’ I/0 ERROR ON WRITE OF FROMPT,? CODE =! !EX 


1 ’yI4) 


PIEX 


FORMAT(’ DIRECTIVE ERROR ON READ» CODE = ’»T4) 


FORMAT(’ DIRECTIVE ERROR ON 1ST WAIT: CODE = 
FORMAT(’ I/O ERROR ON REAL, CONE = ’»T4) 


“yT4) 


FORMAT(’ DTRECTIVE ERROR ON WRITE» CODE = ‘’»T4) 


FORMAT(’ DUITRECTIVE ERROR ON 2ND WAIT, CODE = 


~ FORMATC’ I/0 ERROR ON WRITE» CODE = ’»IT4) 


ENT! 
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COMnN GD CAD GI 


Using the QIO Directive 


SOLUTION 


»TITLE NUMER 
+IQNENT /01/7 
+ENABL LC y Enable lower case 


+ 


FILE LEX32,.MAC 
Modified to include error message code 9FEX 
This task does a simrle addition and outeuts the 


results. It demonstrates the use of SEDMNSG for 
formatting messasdes with nmumeric data 


“Zt> “Srp > Sr Sr Se SP > “EP 


»*MCALL QIOWS*sEXITSS»sDIRS + Sustem macros 
*MCALL QIOWSS ¢ Sustem macros #¢EX 
*+NLIST REX Tilo not list binary 
extensions 


“Sr “> 


y Late 

Az »WORT 10 ¢ Ist addend and start 
+ of arsument block 

Bi +WORTD 22 ¥ 2nd addend 

Cs + BLKW 1 § Location for sum 

5 

OUT? QrTOoWs IO.WVBsSe12»TOSKss<BUF, 40> $RIO for 
5 Outreut messade 

IOSR? »>BLKW 2 y I/O status block 

¥ 

§ Set ur for $E0MSG6 

y 

BUF? +BLAE 80, § OQuteut buffer 

FMES3 eASCIZ /240. WAS AMINED TO “2N.* GIVING ZD./7 
> Format string 

+ Set ur for error messages using $EDMSG ¥9EX 

+EVEN 99 EX 
ARG? »BRLAW 1 > Argument blocks sE 


FMTi03 .ASCIZ /YIRECTIVE ERROR ON WRITE» DSW = “ZD/ #sEX 
FMTIITi .ASCIZ ‘1/0 ERROR ON WRITE, £70 STATUS = ZI’ 3 5EX 
«EVEN 99 EX 


»LIST REX List binary extensions 


y 
»EVEN ’ Move to word boundary 
START: MOV ArC ¢ Move ist addend to sum 
> word 
ALT ByC ¢ Add 2nd addend to form 
y sum 


¢ Set ure for call to $E0NSG 


MOV #8UF > RO Addr of outrut buffer 
MOV #FMES*R1 Addr of format strings 
MOV #AsR2 Addr of arstument block 


Make cally character 
count returned in Ri 


CALL $E0MSG 


> “> “Sr “> “d 
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Using the QIO Directive 


SOLUTION 


MOV RivsOUTH+Q.IOPL+2 ¢ Flece # of characters 
> to write into IOFL 
> in QIO DFE 
nIR¢ #OUT y Write outrut messade 
ECS ERR1L § Branch om dir error 
TSTR  IOSK + Check for I/0 error 
BLT ERRII + Branch on I/O error 
EXIT$S 
9 
y+ Error code 
gy 
ERRIiI? MOV #FMTAITyR1 > Format strings for 9 FEX 
§ ist I/O error message 
MOVE IOSE+RO s Extend sigm om I/O ¢sEXx 
MOV ROs ARG § Status bute bu movirns) sEX 
> it through RO to the +sEX 
> arsument block 9 9X 
BR EQAWT y¥ Branch to common edits sEX 
> and write code 9 9EX 
ERRAQ: MOV #FMTIlivR1 § Format string for 1istsrsEX 
§ directive error 9 9X 
MOV #$0SWy ARG § Move ItSW to ars blocks $sEX 
> Finish setting ur for $E0DMSG 9 $EX 
EDAWT: MOV #EUF s RO ¢ OQutrut buffer address? sEX 
MOV #ARG 2 R2 + Argument block address» sEX 
CALL $ELMSG , Edit outeut string #7EX 
QIOWSS #IOWVB es €5 81 eee eo cSRUF eo RL 40> § Writes sEX 
> out message ¥ EX 
EXIT#S ¢ Exit 9 9EX 


+END START 
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CON &@ CHD Whe 


+ 


from 


<> “G> “a> “a> wr ar “E> ren sco “E> “En “E> er a> 


tata 


er “a> WP 


MES 3 
LEN 
BUFF 3 


BLEN 
BUF 3 
TMOMS$ 
LTMOMS 


Using the QIO Directive 


SOLUTION 


eTITLE NOECHO 
*IDENT 7/017 
*ENABL, LC 5 Enable lower case 


FILE LEX33.MAC 

Modified to combine QIOs and include timeout #FFEX 

This task writes 8 Fromet and then issues a QIO to read 
the terminal without echo. It then diselayvs the 


word which was entered. 


Assemble and task-build instructions? 


MACRO/LIST LB¢Cis LIPROGMACS/LIBRARY » devi CuicIJLex33 
LINK/MAF LEX33*FROGSURBS/LIBRARY 


*MCALL EXITSSsQIOWSC sQIOWSS ¢ Sustem macras 
»+MCALL DIRERR,» IOERR § Surrelied macros 


«eNLIST EEX Tion’t list of binary 
extensions 
*-ASCIT /SECRET WORD? 7 Fromret messese 
= o~MES . Lendth of Fromet 
*ASCIL “15>/N0 LONGER A SECRET WORD? / 

7 Freceding remark. 
= +7“ BUFF ¥ Length of Remark. 
«BLAKE 80, j 


“> “S> “E> “Ed 


Ineut buffer 
*ASCII /READ TIMED OUTS $ Timeout messase $5 5EX 
=4-TMOMS a9 EX 


»EVEN ¢ Word alisn for IOSB 
»WORT ) + IOSK is broken into 
»WORD e) y+ two rarts for 

> convenience. 


y Lefine functions locally to allow us of an assidmment 
i statement to shorten directive statement 


IO.RFR 
TF. RNE 
TF.TMO 
IO.FNC 


Code 


“er “> “Ge 


START $ 


RCS TERR 


=004400 > Tefine functions 

a2 > 

=2O0 5 
=<TO.RPRITF.RNE!TFE.TMO? ¢ QIO function code 
«LIST BEX i List binary extensions 


QIOWSC IO.FNCsSel»ysITOSBs + <BUF »80.72»MESsLENy 44> 


§ Issue read after ##EX 
§ Fromet SEX 
§ Branch om dir error 
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NIR4OKe 


NOTIMO: 


; 
; 
3 
TERRI? 
IERRS33 
TERR4 3 
DERR1 ? 


NERRS3 
NERR4 3 


TSTE 
BLT 
CMPR 
BNE 
QTOWSC 
BCC 


JMP 
TSTE 
BLT 
EXIT$SS 
MOV 
ALT 
QIOWSS 


BCS 


TST 
BLT 


_EXITS#S 


IOERR 


IOERR 
TOERR 
NIRERR 


NIRERR 
NIRERR 
+ENT 


Using the QIO Directive 


SOLUTION 
IOSE > Check for I/0 error 
IERR1 > Branch om I/0 error 
IOSK»#IS.TMO * Check for timeout 99 EX 
NOTIMO > Branch if no timeouts sEX 
IO.WVBs Sele TOSRs + <TMOMS sh TMOMS » 40> 9 FEX 
NIR4OK § Branch on dir ok ~ FF EX 
§ need thiss too far FFEX 
3 for branch 
NERR4 5 Jume on dir error ¢5¢EX 
IOSE ¢ Check for I/0 error $sEX 
IERR4 + Branch on I/0 error ##EX 
y Exat ¥9EX 
LENT »RO 5 Get length of inrut #FEX 
#BLEN+? RO § Add length of remark 


#IO.WVBy #57 #1>»#TOSKe »< #BUFF er ROs #402 


5 Write out text 
TERRS § Branch on dir error 
IOSE ¢ Check for I/0 error 
TERRS § Branch on I/0 error 
, 


Peat 


Errors come here 


#TOSB»e<Error om REAN AFTER FROMPT> ¢¢EX 

> isrley message end 
#IOSBs<Error om 2nd WRITE> ¢ exit 
#[OSKe<Error writing timeout message>s sEX 
<Error in QIO om READ AFTER PROMPT $¢EX 

§ [Ttiselay dir message and 
“Error in QTO om 2nd WRITE? ¢ exit 
Error writing timeout messase> ¥9EX 
START 


30 


VBI & LIS Gh 


C 

C File LEX33.F TN 

C 

C Modified to use read after fFromet and to timeout !IEX 

C 

C This task frromets for inreuty reads it without echo and 

C then skies to the next line and diselays the ineut 

c text and exits. 
BRYTE BUFF (C80)»TOSB(4) »CRC1> 
INTEGER FARM(46) 
REAL. FROMFT ¢ 4) ! Promet PIEX 

Cc 
TATA IOFNC "4620/7 ' Qro tlEX 

C 1 0 6funmetion! 'EX 

C ; i code tlEX 
DATA ISTMO /2/ ! Timeout !!EX 

C ! status !!EX 
DATA CR /*15/7 ! a as return 
ATA FROMFT /*SECR’s “ET W's “ORI %» ” tf 

C ! eee ItEX 

C Set ur the I/O rarameter list 
CALL GETAIIR CPARM(C1)»BUFFC1)) !-huffer address 
FARMN(2) = 80 ! Ruffer length 
FARM(C3) = 2 ! Timeout = 2 !!EX 

C 1! * 10 sec ttEX 
CALL GETADR (CFPARMC4)*sFROMPTC1))> ! Fromet addr !!'EX 
FARM(S) = 13 ! Fromet lensth! | EX 
FARM(6) = "44 ! Vertical 11EX 

C ! 0 6 format contr! 'EX 

C Issue read no echor read after fromets with timeout !!EX 
CALL WTQIO CIOFNCsS91+/TOSBesFARMs INS) 
IF (10S .LT. 03 GO TO 100 ! fir error? 
IF (I1OSEC1) .LT. O03 GO TO 110 ! 1/0 error? 

C Check for timeout 
IF (IOSH(1> .NE. ISTMO) GOTO 1 ! Branch if mo! !EXx 

C r timeout PlEX 
TYPE &*y’READ TIMED OUT’ ' flisrlay 11EX 

C ! messasde tlEX 
CALL EXIT [hand exit '1EX 

1 WRITE (S22) CRy (BUFF CI) sT=1*sIOSB(3)) ! Echo inrut 

2 FORMAT ¢€% “sAlsy “NO LONGER A SECRET WORD? ’»80A1) 
CALL EXIT. 

C 

C Error conditions 

Cc 

100 TYPE Xy “DIRECTIVE ERROR ON READ. STATUS = “’sIDS 
CALL EXIT 

110 TYPE *» “I/O ERROR ON READ. CODE = “»TOSRC1) 
CALL EXIT 
END 


Using the QIO Directive 


SOLUTION 


FROGRAM NOECHO 
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MONI Ch D Gif 


10 


“> “EP ‘ep “SP “EP Gr “SP “EP “SP HP EP > “EP “ED 


+ 


BUFF 3 


IOSK? 
ALUN? 


QO: 


Using the QIO Directive 


SOLUTION 


*TITLE LEX34 
~ITHENT /01/ 
+ENABL, LC > Enable lower case 


FILE LEX34.MAC 
Solution to Module 3» Lah Exercise 4 


Task does 3 write breakthrough to all terminals. 


Assemble and task-huild insructions? 


™MACRO/LIST LEtCiy 1IPROGMACS/LIBRARY » devi Cutdd- 
~™LEX34 

=LINK/MAP/PRIVILEGED{O LEX34*LBi01»1IFROGSURS/— 
~ LIBRARY 


*MCALL ALUNSs QTOWS »NIRSsEXITSS 
*MCALL DIRERR» TOERR 


*ASCII /HELLO THEREZ 
LEN = .~BUFF 
»+EVEN 
»BLKW 2 ¢ I/O status block for QI0 
ALUNS 4»sTT?0 + DFR to assidgm to TTOt» 

5 will modify for others 
Qrows IO.WLE! TF. .WETITF ROUs4e15*I0SBs » BUFF yLENy 40> 


+ENABLE LSB 


MOV #ALUN»RO > RO => DFE for ALUNS 
MOV #QI0°R1 ¢ Ri => DFE for QIOWs 
NIG RO 5 Assisim LUN 

RBCS ALFAIL s If ALUN# failed 

DIRS Ri § Tyre messade at TTn?: 
BCC 1% > If I/70 was aueued ON 


QNIRERR <ERROR ON QIOWS> 


CMFRB #IS.SUC»TOSE > Did I/0 succeed? 

REQ 2 > Yes 

IQOERR #IOSE»<ERROR ON QIOWS> 

INC A-LUNUCRO) + Next terminal 

RR BRO 

from ALUN 

CMP #TE. Tous ¢nsw lid it fail because of 


Ed 

> illesal unit #? 
BNE 3 § Noy some other error 
EXITS § Yes. Must have rassed 

s the last terminal 
QIRERK “ERROR ON ALUN$>3 Other error 
»ENT START 
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SOMONDHR FL OW he 


Using the QIO Directive 


SOLUTION 


FROGRAM LEX34 


C+ 
C FILE LEX34.F1TN 
Cc 
C Solution to Module 3» Lab Exercise 4 
Cc 
C Task does 28 write breakthrough to all terminals. 
C 
C Task-build with /FPRIVILEGED?O aualifier 
C- 
INTEGER TTUNITs SW 
DATA TTUNIT/O/ ! First outeut to TTO? 
INTEGER FARAM(C&) » TOSKR(2) 
BYTE SUCCONC2) ! I/0 success codes 


' 
EQUIVALENCE (SUCCODsIOSH) ! First butes of IOSK 
INTEGER ITETOU ! Mnemonic for *Illesal 


DNATA TETDU/S-997 
INTEGER TOFCOD 


levice or Unit" DSW code 


I 
t 

! 1/0 function code 
! ommemonic 
! 
i 
i 


C 

VATA IOFCODZ*SO01/ Write losical blocky» 
C write breakthroushy 
C and restore cursor 
C 
C Load rarameter list 

CALL GETADIRCPARAMC1)» “HELLO THERE % > 

FARAM(C2) = 11 ' Length of strimnes 

FARAM(C3) = "40 ! Blank for carr. ctrl. 
10 CALL ASNLUNC4s’°TT’sTTUNITsDISW) |! Assigm LUN 4 to 
c § TT 


IF (OSW.LT.O)> GOTO 900 
CALL WTQTOCIOFCOIs491»sITOSR»FARAMs SW) 


IF (NSW.LT.O) GOTO 910 ! Directive error 


IF ¢(SUCCONC1).NE.1) GOTO 920 ! I/O error 
TTUNTT = TYUNITH1 
GOTO 10 


Cc 
-C Error from ASNLUN. If ASNLUN failed because of illegal 


C unit mumbers must have rassed the Last terminal. Exit. 


900 IF (OSWLEQ.-TEIOU) CALL EXIT 
TYFE 9OSs0SW ! Other error 
905 FORMAT (¢’ ERROR ON ASNLUN. [SW = ’*I4) 
CALL EXIT 
910 TYPE 9IS»sTTUNIT » rSw 
915 FORMAT (’ DIRECTIVE ERROR ON QIO TO TT’sO029’t¢/ 
1’ DSW = “%sI6) 
CALL EXIT 
920 TYPE 925 TTUNITsSUCCON¢ 2) »SUCCONC1) » TOSBC2) 
925 FORMAT (¢€’ I/0 ERROR ON QIO TO TT’ sO02%°37%/ 
1 ’ I70 STATUS BLOCK = ’yT4er’ »’%eT4x’ /’%9TS) 
CALL EXIT 
ENT 
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Using Directives for Intertask Communication 
TEST /EXERCISE 


Modify RECV1 and SEND1 to synchronize using Suspend and Resume 
directives instead of event flags. 


Modify RECV2 so that the display includes the name of the 
sending task in addition to the data. 


Write another sender task to send data to RECV2. Modify the 
receiver so that it receives data from your task only, not 
from SEND2. 


Modify SPAWN so that it Spawns CLI..., MCR..., or .-.DCL 
several different times and sends a different MCR or DCL 
command line each time. Display the exit status after each 
command executes. 


Write a parent task and an offspring task. Have the parent 
spawn the offspring. Have the offspring emit status to the 
parent every five seconds for 38 seconds and then exit. Have 


the parent display each status value. Optional: Use an AST 
routine in the parent for synchronization. 
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Using Directives for Intertask Communication 


e TITLE 
« DDENT 
+ENABL 


+ 


Modified to 


“> “Sh Sh Sp “Gr ‘CrP SP SP Sd “SP Se Sh Bd SP GP Sd Sr SS “> HP 


*MCALL. 
*MCALL 


+ BLAE 


‘er PE wr ae 
Cc 
Tt 
Tl 
Fy 
Al 
oe 


«ENABL 


3 
START? 3 TYPE 


INFUT 
STIATSC 
BCC 
NIRERR 


1? RSUM$C 
BCC 
DIRERR 
EXIT$S 
+ ENT 


Ci 
bad 
+ 


SOLUTION 


SENDA 
O17 
LC ’ Enable lower case 


FILE LEX41A.MAC 


use Susrend and Resume directives for sEXx 
synchronization 99EX 


This task fFromets at TI for a line of text and sends 
the dates to RECV1 for rrocessing. Senchronizetion 16 
handled throush & common event flag. 


Assemble and task-huild instructions? 


“MACRO/LIST/OBJECTSSENDL LEI CLs LIFROGMACS/LI-»+ 5EX 
~SBRARY vsdevi CufdILex4iaA 
“LINK/MAP SEND sy Li Ci» LIPROGSUBS/LIBRARY 


Install and run instructions? RECVi must ne installed 
and rum erior to running SEND. RECV1 comtinues to run 
umtil it receives 3 data rackets. 


SHAT&SCvEXITS$SsRSUMSC §¢ Sustem macross sEX 
TYPE s INFUT sO TRERR ¢ Surelied macros 


2&6 > Itatea buffer to be sent 
LSE i Enable local symbol 
5 blocks 


TYPE A LINE OF TEXTys 26 CHARACTERS OR LESS= 
§ T¥re frromrt 

#BUFFERy, #264. + Get text to send 

RECVLyBUFFER + Send data to RECVI ¢5EX 

1% > Branch om directvie ok 

<UNABLE TO QUEUE DATA TO RECVit ¢ Tisrelay 


5 error message and exit 
RECV1 § Resume RECVI go EX 
wk) > Branch on directive oks 5EX 
UNABLE TO RESUME RECVI: 3 ¢9EX 

§ Exit 9 5EX 


START 
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Using Directives for Intertask Communication 


SOLUTION 


‘FROGRAM SENT 
FILE LEX41A.FTN 


Modified to use Susrend and Receive directives for 
synchronization 


PIEX 
PIEX 


This task rromets at TI: for a line of text and sends 


the date to RECVI for rrocessing. Synchronization 
handled through a common event flag, 


Install and run instructions! LEX41B must be 
installed under the mame RECVL and rum erior to 
running LEX41A. RECV1 continues to rum until it 
receives 3 data rackets. 


BYTE BUFFER(26) 
TATA RTASK/6RRECV1 7 ! Receiver task 
Fromet for aimreut 


is 


PIlEX 
1'EX 
1lEX 


TYPE xk» ‘TYPE A LINE OF TEXT,» 26 CHARACTERS OR LESS’ 


READ (S910) BUFFER ! Read text 
FORMAT (26A1) 
CALL. SEND (CRTASKysBUFFERssI0USW) ! Send data !!EX 
IF ¢(1uSW .LT. 0) GOTO 900 ! Branch on dir error 
CALL RESUME CRTASKsTNSW) ! Resume RECVI ItEX 
IF (InSW «LT. OF GOTO 950 ! Branch on dir err! !EX 
CALL EXIT 1 Exit 

Error code 

¢] TYFE xk» “UNABLE TO QUEUE DATA TO RECVi. NSW = ’»InSwW 
CALL EXIT 

0 TYFE X»’UNABLE TO RESUME RECVI. [SW = “*sInSW !teExX 
CALL EXIT IlEX 
ENT 
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Using Directives for Intertask Communication 


SOLUTION 


*TITLE RECVI 
eIQENT /017 
*+ENABL LC 3 


+ 


FILE LEX41B.MAC 


Modified to use Susrend and Res 
This task 
(e.de» SENTII).It erints the dat 
waits for another data racket. 
has received 3 messases and the 
This task sunchronizes with its 
event fla. 


Assemble and task-huild instruc 


*MACRO/LIST/OBJECTSRECVI 
~SRARY sdevilCufdIRECV1 
LINK/MAF RECVL»LEI CL» LIRR 


“> > ap ‘E> “E> “GP “ER ‘SP “Sr WP GP “a> Wr GP E> “GP Vr Er 


Install and run instructions? R 


‘> > > SED 


and receives date from 


Enable lower case 


ume for syunchronizations s EX 


any sender task 
aon Tr?. Then it 

It does this until it 
nm exits. 


sender through an 


tions} 

LRiCisLIFROGMACS/LIB-~35¢EX 
93EX 

OGSUBS/LIBRARY 


ECV1 must he installed 


and rum hefore runninsa SENT. 
*MCALL ROVOSCSEXITS$SsSFEFNNSS$ Sustem macros #3EX 
»*MCALL TYPE DTRERR + Surelied macros 
7 
§ 
RUFF $ »>BLRW 1S. + Receive huffer 
; , 


*ENARL LSE 3 
; 
3 
START: MOV #39RS ’ 
3 
AGAIN: SPNINSS , 
; 
BCC 3 3 
QIRERR 


“SUSPEND DIRECTIV 
. y 


> We det nere when resumed by SEN 


383 RCVIEC  »RBUFF ; 
RCC va ; 
QNIRERR “«<RECEIVE GIRECTIV 
y 
; 

y Successful receirt 
wh TYPE “<DQATA RECEIVED BY 
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Ensble local symbol 


blocks 


Initislize messade 
counter 

Susrend self umtils EX 
messade arrives 

BKranch om directive ok 

E FAILED: §¥ Diselay §¢3EX 


error message and exit 

td 3 3EX 
Receive from anysone 
Kranch om directive ok 

E FAILED IN "“RECVI "> 
Dligrlay error message 
and exit 


liselay 


"RECVL"3> ¢ 
5 data 


SONG CHD Whe 


10 


Using Directives for Intertask Communication 


SOLUTION 

TYPE #RBUFF +4, #26. s Diselay data sent by 

> sender 
NEC RS § Necrement messase 

$ counter 
BNE AGAIN § If mot vet Or get 

> another message 
TYPE “<"RECV1I" HAS RECEIVED 3 MESSAGES ANTI WILL NOW EXIT: 
EXITS ’ Exit after 3 messades 


ENT! START 


FROGRAM RECV1 
FILE LEX41B.FTN VIEX 


Modified to Use Susrend and Receive directives for I!EX 
synchronization IIEX 


This task receives data from LEX41A. It frints 

the data om TI?. Then it waits for another data 
racket. It does this until it has received 3 messases 
and then exits. 


This task syumchronmizes with its sender throush an 
event flag. 


ITT OOOO AIONMAOIAIAAAaannn 


Install and rum instructions? LEX41B must he Plex 
installed under the name RECVI and rum before runmins! !EX 
LEX41A. PIEX 
C 
INTEGER RBUFFC1S) ! Receive huffer 
ae 
nO 100 I=193 
10 CALL SUSFNID ¢(I0SwW) 1! Susrend umtil SENT !'!EX 
Bs ! 6 sands data and resumes 
IF (IriSW .EQ. 2) GOTO 20 VlEX 
TYFE X»‘SUSFEND DIRECTIVE FAILED. NSW = “sISW! tex 
GOTO 1000 
20 CALL RECEIV (C»RBUFFsyINSW) ! Receive from anyone 
IF (I0SW .EQ. 1) GOTO 30 
TYPE X» ‘RECEIVE DTRECTIVE FAILED IN “RECVL", 
1 NSW = “’»thsw 
GOTO 1000 
30 TYFE X»s‘TATA RECEIVED BY “"RECVI"?’ 
WRITE (3235) (CRBUFF CK) sR=3915) 
35 FORMAT ¢¢% “’v13A2> 
100 CONTINUE 


TYFE Xv ’"RECVI" HAS RECEIVED 3 MESSAGES AND WIL 
1 NOW EXIT’ 

1000 CALL EXIT 
ENI 
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y 


REBUFFS .BLKW 1S. 
TASKNM: « BLAKW z 


? 


a 


¥ 


START? MOV #39RS 
RECEIV? RCST$C »RBUFF 


a 
? 
a 
? 
a 
’ 
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Using Directives for Intertask Communication 


SOLUTION 


*TITLE RECV2 
*IQENT /01/ 


eENABL LC ¢ Enable lower case 
FILE LEX42.MAC o HEX 
Modified to disrlay the sender task name in addition #3EX 
to the date 993EX 


This task receives data from another task. It erints 
the datay alongs with a@ headers om TI?. Then it waits 
for another data rackets continuing this until it has 
received 3 messades. 


This task synchronizes with its sender using RCSTS$. 
Because of this syunchronizsations tine tasks can he run 
in anv orders with any relative rriorities. 


Assemble and task huild instructions? 
=MACRO/SLIST/OBRJECTSRECV2 LRiC1ly1IFROGMACS/LIB~§ 7EX 
~SRARY sdevilufdILEXx42a soEX 
SLINK/MAF RECV2sLEi Cis 1 JFROGSUBS/LIBRARY 


Install and run instructions! RECV2 must be installed. 


*MCALL REOSTE#CeRCOVOSCSEXITSS § Sustem macros 
+MCALL TYFEsOUIRERR § Surrlied macros 


Receive buffer 
Buffer for task mamessEx 


s> “a> 


Enable local sumbol 
blocks 


+ENABL LSB 


“> > 


Set ur messase counter 
Receive from anyone 
RCC wk: ) Branch om directive ok 
DIRERR <RECEIVE DIRECTIVE FAILED IN "RECV2"> 
¢ [liselay error message 
> and exit 
Successful receirt or unstorred by another task. First 
check for unstorred after being storreds in which case 


we have to receive the data 


S> “> “> 


: CMF $USWs#IS. SET § Were we storred due to 
y no data 
BNE 5% + If noty we have a data 
§ Fackhet 
RCOVONSC »RRUFF > Now det the racket 
BCC é4$ ¢* Branch on directive ok 
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Using Directives for Intertask Communication 


SOLUTION 


DIRERR <RECEIVE DIR FAILER AFTER "RECV2" UNSTOPFPED: 
> Ulisrlay error messase 


§ and exit 
> Convert task name from Radix-S0 to ASCII 
683 MOV #TASKNMs RO ¢ Address for converted) sEX 
5 name e3EX 
MOV RBUFF » Ri ¢* Word to he converted sEX 
CALL $CSTA § Convert it 99 EX 
MOV RBUFF +2 2R1 § Next word to be 99 EX 
§ converted ¥9EX 
CALL #CSTA § Convert it 9 ¥EX 
- TYPE “DATA RECEIVER BY “RECV2"3> ¢ Disrelay text 
TYPE #TASKNM 2 #6 + Dlisreley task name ¥9EX 
TYFE #RBUFF +49 #264. > and data sent 
’ Had to change SOB ~- too far for pranch! 9 9EX 
NEC RS + Decrement message 93EX 
¥ counter 59 EX 
REQ NONE § Branch if done ¥9EX 
AMF RECEIV > Receive asain if mots sEX 
s vet 3 messages 3 9EX 
DONE TYFE <"RECV2" HAS RECEIVED 3 MESSAGES> 
TYPE SAND WILL NOW EXIT? $+ Tyre exit message 
EXITS 5 Exit 
+ ENT! START 
FROGRAM RECV2 
FILE LEX42.FTN 1IEX 
Modified to disrlay the sender task name in addition !!EX 
to the data 'tEX 


OMA AOA Aaa 


x2 


IO oF 


This task receives data from another task (e.g. SENDT2). 
It rrints the datay alongs with ae headery om TIt. Then 
it waits for another date rackets continuing this 

until it has received 3 messages. 


This task synchronizes with its sender using RCST. 
BRecause of this synmchronizsetions the tasks can be run 
im any orders with anys relative rriorities. 


Install and run instructions? LEX42 must be installed! !EX 
under the mame RECV2. I'IEX 
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Using Directives for Intertask Communication 


SOLUTION 


INTEGER RBUFF CIS) | ! 
INTEGER DSW» ISSET 
INTEGER TASKNM(3) ! 


DATA ISSET/2/ 


110 100% IT=1%3 
CALL RCSTC»sRBUFF » TSW) ! 
IF (uSW.GE.O) GOTO So 
Tyre Ky “RECEIVE DIRECTIVE 
1 0SW = 7% »fSw ! 
GOTO 1000 ! 
C 
C Successful receirt or unstorred 
C check for unstorred after heing 
C we have to receive the data 
¢) IF (uSW.NE.ISSET) GOTO 60 


ba 
Cc 
C 
C 
C Storred due to no data? 

CALL RECEIVC sRBUFF » »tSW) 


IF (SW.EQ.1) GOTO 60 
TYPE Xr RECEIVE NIRECTIVE 


Receive buffer 


form! | EX 
!lEX 


Ruffer for ASCII 


of task name 
ISW code mnemonic 


Receive from ansone 
FAILED IN “RECV2",. 
flasrelay error messase 
and exit 


by another task. First 
storredys im which case 


! Were we storred due 
! 0 6to no data? If not 
! (NE) » we have 2 

! data racket 


! Now det the racket 
"RECYU2* 


FATLED AFTER 


JUNSTOFPED. [SW = %snSW ! Miselay error 
GOTO 1000 ! messase and exit 
C Diselay data 
40 CALL RSOASC (6*REUFF » TASKNM) 11EX 
TYPE 7S* TASKNMs CRBUFF (J) »J=3215) 1IEX 
73 FORMAT ¢€’ TATA RECEIVED BY "“"RECV2"3°/1X93 !IEX 
1A2Z91Xx13A2> PlEX 
100 CONTINUE 
C Have received 3 messades 
TYPE X»y’"RECV2" HAS RECEIVED 3 MESSAGES ANTI WILL 
1 NOW EXIT’ 
1000 CALL EXIT ! Exit 
ENT 
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Using Directives for Intertask Communication. 


SOLUTION | 
sTITLE =LEX43A 
eIDENT /04/ 
»ENABL LC j 


FILE LEX43A.MAC 


A second sender to RECV2 


This task rromets at TI? a@ line 
data to task RECV2 for Frocessing. Sunchronization 16 


handled through 


Enable lower case 


99 EX 


of text and sends the 


RECV2’s stor bit. RECV2 will continue 


to rum until it receives 3 messases. RECV2 and LEX43A 


mas he run in 


any order. 


Assemble and task build instructions? 


MACRO/LIST LB? CLs LIFROGMACS/LIBRARY sdevi CufadILeEx43sa 


LINK/MAP LEX43A2LBi Cis l1IPROGSUBS/LIBRARY 


Install and run instructions: LEX43B must be installed 
under the mame RECV2 


*MCALL 
*MCALL 


BUFFER? «BLAKE 


1$ 


bh 
& 


oo 


+ENABL. 


ART? 3 TYFE 


INPUT 
SNATSC 
BCC 
NIRERR 


USTFSC 
BCC 
CMF 
BEQ 


CMF 
BEQ 
QIRERR 


EXITS 
END 


LSE 


SUATS&CsUSTFPEC YEXIT#SS ¢ Sustem macros 


TYPE s INPUT» DIRERR 


26. , 


a 
bd 
a 
bd 


“TYPE A LINE OF TEXTs 24 CHARACTERS OR LESS> 


#BUFFERy #26. 
RECV2 » BUFFER 
1% 


“> “@> “> “SD 


a 


¢ Surrlied macros 
Send buffer 


Enable local symbol 
blocks 


iselay rromret 

Issue read 

Queue data to RECV2 
Branch om directive ok 


UNABLE TO QUEUE DATA TO "RECV2*: 


2$ 
S$0NSWetIE.ITsS 


2% 


$0SWstIE.ACT 
2S 


“UNABLE TO UNSTO 


‘> “a> “T} <a> “er wr ed “em “E> “a> “a> “er E> “Ed 


START 
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tiselay error message 
and exit 

Unstor RECV2 

Branch on directive ok. 
Isn’t he storred? 
That’s oks he’ll rick 
ur Gata when he 
executes RCISS 

Is he not active? 

If nots nhe’ll rick up 
data when activated 
"RECV2"> §¢ Any other 
error is bad 

Exit 
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Using Directives for Intertask Communication 


SOLUTION 


FROGRAM LEX43A 
FILE LEX43A.FTN Plex 
A second sender task to send date to RECV2 1IEX 


This task rromets at TI? for a line of text and sends 
the data to RECV2 for Frocessing. The receiver will 
continue to run until it receives 3 messases. 
Synchronization is handled throush RECV2’s stor bit. 
RECV2 and LEX43A may he run in any order, 


Install and run instructions? LEX43K must be IIEX 
installed under the name RECV2, IlEX 
BYTE BUFFER(26) ! Send buffer 


INTEGER DSW 
REAL RECV2 


DATA RECV2/SRRECV2/ |! Receiving task name 
INTEGER TEITS*sIEACT ! Error mnemonics 


DATA IEITSsTEACT/-~89-7/ 


TYPE X*y’TYFE A LINE OF TEXTs 26 CHARACTERS OR LESS’ 


READ (S95) BUFFER 
FORMAT (26A1) 


CALL SENICRECV2,sRUFFER: »DSW) ! Send data to RECV2 


IF (DSW.EQ.1) GOTO 10 
TYPE Xs “UNABLE TO QUEUE DATA TO "RECV2",. DSW = 
10S 

CALL USTFCRECV2 »ISW) 

IF (SW.EQ.1) GOTO 20 

IF (USW.EQ.IEITS) GOTO 2 


1 Unstor RECV2 
! Branch on directive ok 
0 ! ITsn’t he storred? 
! That’s ok» he’1ll fick 
1 our date when he 
! executes RCNnSS 
O ! Is he not active? If 
! moty he’ll rick up 
! data when activated 
TYFE X*’UNABLE TO UNSTOF “RECV2". TSW = ‘»snSwW 
! Ang other error is had 
CALL EXIT , PoExit 
ENT 


IF (liSW.-EQ.IEACT) GOTO 2 
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Using Directives for Intertask Communication 


SOLUTION 
eTITLE RECV2 
*IDVENT /01/7 
*ENABL LE > Enable lower case 
FILE LEX43B.MAC 3 SEX 


Modified to recieve only from LEX43A 33EX 
NOTE? THE TASK WILL EXIT WITH A NO TATA QUEVED ERRORS s EX 


IF SEND2 SENDS DATA ANID UNSTOPS THE TASK. MORE — 9 8EX 
COMPLICATED CODING IS NEEDED TO HAVE THIS TASK ¥9EX 
QISTINGUISH BETWEEN TASKS WHICH SENT DATA AND UNSTOPs 5 EX 
IT ¥9EX 


This task receives data from another task. It erints 
the datar alons with a headers on TIt. Then it waits 
for another data rackets continuing this until it has 
received 3 messaeses. 


This task syumchronizes with its sender using RCSTS. 
Recause of this synchronizations the tasks can be run 
im any ordery with any relative rriorities. 


Assemble and task-build instructions? 
sMACRO/LIST/OBJECTIRECVS LES CLs LIPROGMACS/LIB-$ 3 
-~>RARY sdevilufadILlex43aeb 9 
*LINK/MAF RECV2>LBiCL»1IFROGSUBS/LIBRARY 


Install and run instructions? RECV2 (CLEX43B) must bes Fs EX 
installed under the name RECV2. $F EX 


‘> > “> “> SP Wh Wh > GP “EP “Gr Gr “UP SDP “E> “Er “EP WP GSP Wr “E> “E> “SP SE? WP 2d GP EP “Od 


*MCALL RCSTS#CeoRCVOIGC EXITES § Sustem macros 
»MCALL TYPE STDIRERR 5 Surrelied macros 


RBUFF 3 +RLKW 15. Receive huffer 


er 


+ENABL LSE | -§ Enable local symbol blocks 
; 

STARTS MOV #3eRS 
RECEIV: RCST$C LEX43AyRBUFF 


Set ur messade counter 
Receive from Just #FEX 
LEX43A 59 EX 
RCC wk: Kranch om directive ok. 
QTRERR «<RECEIVE DIRECTIVE FAILED IN “RECV2"* 

s Llisrlay error message 


a 


5 and exit 


“> “> “E> “cr 
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Using Directives for Intertask Communication 


Successful receirt or 


SOLUTION 


unstorred 


by another task. First 


WILL NOW EXIT* 


check for unstorred after beind storred, in which case 
we have to receive the data 
3 CMF $0USWs#IS.SET ¢ Were we storred due to 
5 no data 
ENE 6% 9s If nots we have 2a data 
; racket 
RCVOE$C LEX43A,RBUFF § Now set the racket 
BCC 5% § Branch on directive ok 
DIRERR <RECEIVE DIRK FAILED AFTER “RECV2" UNSTOFPFED: 
¢ DTisrlay error message 
§ and exit 
3 TYFE <DATA RECEIVED BY “RECV2"t> ¢ DTlisrelay 
§ text and 
TYFE #RRUFF+42#26,. + data sent 
SOB: RS»RECETYV + Lecrement message 
y counter. Receive esain 
' if haven’t received 3 
> vet 
LEC RS 93EX 
KEQ NONE 9 ¥EX 
AMP RECEIYV 9 3EX 
NE? TYPE “<"“RECV2" HAS RECEIVED 3 MESSAGES ANTI 
i Tyre exit 
y Messaste 
EXIT$S § Exit 
+ENT START 
FROGRAM RECV2 
FILE LEX43B.F1TN 1 'EX 
Modified to receive only from LEX43A 1lEX 
NOTE? TASK WILL EXIT WITH A NO DATA QUEUVED ERROR IF!!IEX 


SEND2 SENDS DATA. 


MORE COMPLICATED 


CONE IS NEEDED 


1lEX 


TO CHECK FOR SEND2 SENDING DATA ANTI UNSTOFFING RECV2!I!EX 


This task receives data from 


It rrints the data, 


it waits for another data rackets 


another task 
alon# with a headers 


until it has received 3 messages. 


This 


Because of this synchronizationy 


task synchronizes with its sender 


¢ 
on 


im any orders with any relative rriorities,. 


Install and run 
installed unmder the 


instructions? 


mame RECV2, 
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TIS. 


LEX43R must be 


SEND2). 
Then 


continuing this 


usins RCST. 
the tasks can b 


e@ Tuer 


1 tEX 
tlEX 


Using Directives for Intertask Communication 


SOLUTION 
C 
INTEGER RBUFF CIS) ! Receive buffer 
INTEGER USW,sISSET 
REAL TASKNM ! Task mame array !!EX 
TATA TASKNM /6RLEX43A/ ! Task mame in Radix-SoO!llex 
ATA ISSET/2/ ! SW code mnemonic 
C 
C 
110 100» T=153 
CALL RCST(TASKNM*RBUFF *sDSW) ! Receive from LEX43A 
IF (OSW.GE.0) GOTO 50 
Tyre Ky “RECEIVE DIRECTIVE FAILED IN “RECV2", 
1 NSW = % stisw 1! fliseleay error message 
GOTO 1000 ! 0 amd exit 
C 
C Successful receirt or unstorred by another task. First 
CO check for unstorred after heing storreds in which case 
C we have to receive the data 
90 IF (SW.NE.ISSET) GOTO 60 ! Were we storred due 
C ! 6 to mo data? If mot 
C ! (NED» we have 2 
C ! data racket 
C Storred due to no data? 
CALL RECEIVCTASKNMsRBUFF » » DSW) ! Now set the !!EX 
C ! racket 
IF (NSW.EQ.1) GOTO 60 
TYPE &»y’RECEIVE DIRECTIVE FAILEN AFTER "RECV2" 
LUNSTOFPFPED. OSW = ’ »tSW ! Tliselay error 
GOTO 1000 ! messase and exit 
C Yisrlay data 
60 TYPE 7S» (CRBUFF (J) J=3915) 
73 FORMAT ¢¢ TATA RECEIVED BY "“"RECV2°?’/1X*13A2) 
100 CONTINUE 


C Have received 3 messases 
 TYFE X»’"RECV2" HAS RECEIVED 3 MESSAGES AND WILL 
1 NOW EXIT’ . 
1000 CALL EXIT ! Exat 
ENT 
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Using Directives for Intertask Communication 


SOLUTION 


*+TITLE SPAWN 
eIQENT /02/ 


*ENABL LC sy Enable lower case 
File LEX44.MAC 59 EX 
This Frogram srawns MCR...» rasses it a series of #FEX 
command liness waits for each to exits and ¥9EX 
disrelays each command’s exit status. 99 EX 


Assemble and task-build instructions? 


MACRO/LIST LES CislIFROGMACS/LIBRARY »devi CufddLex44 
LINK/MAF LEX44yLEi Cis 1 IFROGSUBS/LIBRARY 


“> “E> SP SP > Gr ED “SP Sr GP E> Ed 


*MCALL SFWNEesEXITSS»sWTSESCsQTOWES es QTOWSC 
System macros 
*MCALL DIRERR» IOERR § Surrelied macros 
«NLIST BEX + Inhibit listings of 
. ; binary extensions 


a> 


CMOLS *ASCIT "FIF &X.MAC/LI" § Command line  § SEX 

LENI =.~-CMI1 § Lensth of command 9 5EX 

CMD2 3 eASCIIT /ACT/ 9 9EX 

LEN2 = ,-CMI2 9 #EX 

CMINS 3 -ASCII /TIM/ 9 5EX 

LENS = .-CMDES #5EX 

SMES? *ASCII /SPAWN IS STARTING AND WILL SFAWN/Z ¥3EX 
*ASCII / MCR COMMANDS/ ¢ Startur message 99 EX 

LSMES =,.-SMES s Length of message 
«EVEN 

IOQSE3 + BLKW 2 § I/0 status block. 

EXSTAT? .BLKW 8. y Exit status hlock 

CMOTEL? .WORD CMI yLENL § Table indexing ¥ 4EX 
»-WORT CMI yLEN2 § MCR commands ¥5EX 
«WORT CMI3 ys LENS . 9 9X 
«WORT 0 s End of table 9 9EX 

SFAWN? SFWNS MCRe ee rey eed ey ex EXSTAT 99EX 

BUFF ? + BLAKE 80. + Outeut messade buffer 

§ Format strins? 

FMT? *ASCII /ZNSFAWN REPORTING? COMMAND / ¥¢EX 
*ASCIZ / COMPLETED. EXIT STATUS WAS ZI.A“ZN/ 3 ¥EX 
«EVEN 


START? QIOWSC IO0.,WVEsS+l1»sTOSBy »<SMES»LSMES» 40> 
BCS ERRifE Kranch om dir error 
TSTE IOSB » Check for I/0 error 
BLT ERRII § Branch om I/0 error 


“> 
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Using Directives for Intertask Communication 


GETCMD:. 


NONE 3 

s Error 
ERRiIDG 
ERRII$ 
ERR2 ¢ 
ERR33 
ERR4I2 
ERR4I? 


SOLUTION 

MOV #CMDTRBL »RS > RZ => command table #+##EX 
MOV #SFAWN»R4 3 R4 => SPAWN DPR ¥3EX 
MOV (R3)+t»S.PWCACR4)§ Set command address #FEX 
REQ TONE s If Or end of list ¥9EX 
MOV (R3.+*S.FWCLCR4)5 Command lenath ¥ 5 EX 
LIRS R4 + Seawn MCR... ¥9EX 
RCS ERR2 § Branch on dir error 
WTSESC 1 § Wait for task to exit 
RCS ERRS §’ Branch on dir error 
RIC #177400°EXSTAT § Clear high order bute 

ys of exit status 
MOV #BUFF + RO + Set ur for $ED0MSG 
MOV #FMT RI ; ; 
MOV #EXSTAT?R2 5 
CALL. $E0MSG ¢s Edit status messase 
QIOWSS #IO.WVBs #5 #19 #IOSKs » <#RUFF oR1 » F40> 

i [Tisrelay exit status 
BCS ERR4D y Branch om dir error 
TSTE IOSE ¢ Check for I/O error 
BLT ERR4I ¢ Branch on I/0 error 
BR GETCME § Get next command ¥3EX 
EXIT#$S § Exit 99 EX 
handling code - ¢ Diselay error message and exit 
QIRERR <ERROR WRITING STARTUF MESSAGE> 
ITOERR #IOSKs<ERROR WRITING STARTUF TEXT> 
QIRERR <ERROR SFAWNING MCR> 99 EX 
NIRERKR <ERROR WAITING FOR EVENT FLAG> 
QIRERR <ERROR WRITING EXIT STATUS> #9 LEX 
IOERR $IOSE»<ERROR WRITING EXIT STATUS> ¥9EX 
»ENT! START 
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Using Directives for Intertask Communication 


SOLUTION 
FROGRAM SFWN 
C 
C File LEX44.FTN 
C 
C This rrosram srawns .--DTlChs rasses it @ series of !!EX 
C command lines» waits for each to exity and PlEX 
C disrelays each command’s exit status. ttEX 
C 
C Date 
INTEGER EXSTAT(8)> sFLIST(4) s DSW 
BYTE BUFF (80> : 
C Commands to be srawned? I'IEX 
C 
C DIR x.MAC PiEX 
C SHOW TASKS/ACTIVE rlEX 
Cc SHOW TIME 1IEX 
C 
REAL CMICSs 3) 1'EX 
TATA CMD/‘°DIR ’9°XK.MA’»s °C’ x O + O » 
1 “SHOW’s “ TAS’ s “KS/A’s “CTIV’ +E’ ys 
2 ‘SHOW’ ss’ TIM’ s’E’ » 0 + Of PtEX 
INTEGER LEN(3) 
TATA LEN/9s1729/ 
C 
REAL [ICL 
TATA DCL/6K..-0ICL/ 
C 
C Code 
WRITE (5915) ! Write message 
15 FORMAT ¢€’ SFAWN IS STARTING AND WILL SPAWN “ys 
1 “DCL COMMANDS / > 1'EX 
10 30sIT=193 
CALL SPAWNCIICL s sets sEXSTATs sCMDNC ly ID »LENCI) 
1 vysTiSW) 1IEX 
! Seawn DCL 
IF (0SW.LT-0O) GOTO 900 ! Branch on dir error 
CALL WAITFR(1*0SW) ! Wait for task to exit 
IF (OSW.LT.0O) GOTO 910 ! Branch on dir error 
WRITE (5925) EXSTAT(1).AND."377 ! Disrlay low 
' byte of exit status 
25 FORMAT (¢€’ SFAWN REFORTING?: COMMAND COMPLETED. %y 
1 ’ EXIT STATUS WAS ‘s»I1s’.%) 
30 CONTINUE 
CALL EXIT ! Exit 
C Error handling code 
900 TYFE X»’ERROR SPAWNING DCL. USW = 7% stSW 
GOTO 1000 
910 TYPE X*s’ERROR WAITING FOR EVENT FLAG. DSW = ’»0SW 
1000 CALL EXIT 


ENE 
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Using Directives for Intertask Communication 


SOLUTION 
«TITLE LEX4SA 
~IQENT /0O1/7 
*ENABL LC > Enable lower case 
+ 
File LEX4SA.MAC 
Solution to Module 4° Lab Exercise 5S - Fart Ay rarent 


task 


@> “> “> “E> “E> “E> “> “E> “E> 


+ GLOBL 
«MCALL 
*MCALL 
*MCALL 


a 


QIO? QIOWsS 


CLEF ¢ CLEFS 


Task sreawns LEX4SB and rerorts status of that task. 
Synchronization is through an AST routine. 


$EDMSG 
CLEFS»WTSESC » SFWNSCEXITSS y QIOWS DIRS 
SETFSC »CNCTSC yASTX$S x QIOWSC » ABRTSC 
NIRERR 


IO.WVBySey2vvx9yQUTRUF 20402 §¢ Set mss 
§ lensth later 


¢ E0MSG arsument block? 


EQMARG: WORT 
STATUS? .«BLKW 


? 
MSG; eASCIZ 
OFEMST$ .ASCIZ 
OFEXIT? .-ASCIZ 
OUTBUF? «BLAKE 
+ EVEN 


sr 


*ENABLE 


BCS 

SFWNSC 

BCS 
1$3 WISE SC 


RCS: 
MOV 
MOV 
MOV 
MOVB 
MOV 
BMI 
MOV 
26% CALL. 
MOV 


1 
OFEMST ¥ => OFEMST or OFEXIT 
8. 6 Offsering status block 


/OFFSFPRING ZI. STATUS = ZDAN/ — 
/EMITTEN STATUS/ 


/EXITED/ 
200. 
LSB 
#QTOR4 § R4 => QIOWS OPRB 
¥#CLEF § CLEF Ll» used to synch 
§ with AST routine 
ERR 
'LEX4SBvyvee2ASTRINeSTATUS ¢ Srawn LEX45K 
ERR2 
1 > Wait wntil AST occurs 
+ and AST routine sets 
> flas 
ERRS 
#OUTBUF » RO § RO => $E0MSG outeut 
#MSGrR1 ¢ Ri => $EDMSG inrut 
#EDMARGsR2 ¢ R2 => $EDMNSG arguments 
STATUS» RS § Extend sigm om status 
RS» STATUS -  § butey also keer in RS 
2 § Minus values mean EMST 
#OFEXIT*sEDMARG ¢ == 0 means EXIT 


$ENMSG 
Ri»Q.,IOFPLF4t2(R4) ¢ Load message length 
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Using Directives for Intertask Communication 


QIOWS to TI: 
Did offsrring exit? 


No. Clear EF 1 asain 


Once offspring exits,s 
60 should rarent 


when offsrring. emits status 


Awaken main code 


If sets main code is 
not ready vet 

We’ve been overrun 

Has offspring exited? 

If sors don’t try to- 
reconnect 


Clean ur stack from AST 
Let main code run 


we’re done with the old 


REFORE READY. 7 


Abort. Oty Sr rane 


Exit this aa 


IN AST ROUTINE> 
TO OFFSPRING? 


SOLUTION | 
DIRS R4 ; 
BCS ERR4 
TST RS ; 
RKGE 3S ¢ Yes 
IRS #CLEF $ 
RCS ERRS 
RR 14 » Wait 
3$3 EXIT$SS — ; 
$ 
; 
ERR1 3 QIRERK ERROR ON INITIAL CLEFS> 
ERR2? DIRERRKR <ERROR SPAWNING LEX45B> 
ERR33 NIRERR <ERROR ON WTSES$C> 
ERR4? DIRERK <ERROR ON QIOWS> 
ERRS? QNIRERR <ERRKOR ON CLEFS> 
? 
y AST routines entered 
+ (negative status value) or exits (rositive status 
¢ value) 
g 
ASTRTN? SETFSC 1 3 
RCS ERRS 
CMF $USWstIS.SET ; 
¥ 
REQ OVRRUN ; 
TST STATUS 5 
BGE 4¢ 5 
. td 
CNCT#C LEX4SB» cASTRTNe STATUS 
BCS ERR? 
4$?° TST (SP)+ ; 
ASTX$S ; 
, 
> If 3a new status comes in before 
y ones something is wronms. Stor everything. 
gy 
OVRNMS? .ASCII /STATUS RECEIVER 
-ASCII / ABORTING BOTH TASKS - A 
OVRNML =..-OVRNMS 
+EVEN 
bd “ 
OVRRUN: QIOWSC Id, WUE 523s y 7 »<OURNMS » QURNHL » 40> 
ABRT$C LEX43E. y 
BCS ERRS 
EXIT$S ; 
bd 
ERRS? DIRERR «ERROR FROM SETFS 
ERR? 3 QDIRERK <ERROR CONNECTING 
ERRKS? QIRERR <ERROR ABORTING OFFSFPRING> 
+ ENT! START 


53 


SOON BCD Whe 


10 


( 
C 


Using Directives for Intertask Communication 


SOLUTION 


FROGRAM LEX45A 
File LEX45A.FTN 


Solution to Module 4» Lab Exercise 5 - Fart Ar rarent 
task. j 


Task seawns LEX4SB and rerorts status of that task. 
Negative status values are used when emitting statusy 
rFositive values when exiting. 


Synchronization is through an event fleas. 


REAL LEX458 
DATA LEX4SB/6RLEX45B/ 
INTEGER STATUS (8) » DSW 


Srawn LEX4SB3 
CALL SFAWN CLEX45SByysly»sSTATUSs9¢9s 2TISW) 
IF (O5W.LT.0) GOTO 900 
CALL WAITFR(1*s0SW) 1 Wait until EXIT or 
| EMIT STATUS occurs 
IF (SW.LT.O> GOTO 910 
IF (STATUS(1).GE.0) GOTO 20 ! Offsering exited 
! Emitted status? 
TYPE 15*STATUS(1).0OR.°177400 ! Disrelay statusy 
! nes sign extended 
! to get nest value 
FORMAT (’ OFFSPRING EMITTED STATUS. STATUS = 7%» 
1I4/) 
CALL CNCT (LEX4SBsl»»STATUS:*s0SW) ! Recomnect 
IF (uSW.LT.0) GOTO 920 
GOTO 10 ! Wait for next status 


Offsrring exited? 


TYPE 25/STATUS(1).ANT. "377 


FORMAT (¢° OFFSPRING EXITED. STATUS = ’»1I4/) 
CALL EXIT ! Once offsering exitsys 
! $0 should rarent 


0 TYPE X»’ERROR SPAWNING LEX45B. DSW = “stSwW 


GOTO 1000 
0 TYFE x*s’ERROR ON WAITFR. [SW = % TSW 
GOTO 1000 
20 TYPE xX»’ERROR CONNECTING TO OFFSPRING. [ISW = “%» 
1nSW. . ; 
00 CALL EXIT. 
ENT! 
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Using Directives for Intertask Communication 


SOLUTION 


*TITLE LEX4SB 
*+IDENT /01/ 
*+ENABL LC § Enable lower case 


File LEX4SB.MAC 


Solution to Module 4, Lab Exercise 5 ~- Fart By 


offsrring task 


This task is spawned bu LEX4SA. It emits a negative 
status every 5 seconds» then exits after 30 seconds 
(6 @emitssy then an exitd. 


If an emit status fails because this task was not 
comnected to the rarenty another emit status will he 
tried 5 seconds later. Two consecutive failures cause 
this task to exit with an error messade. 


This tesk must he installed under task name LEX4SB. 


*MCALL EMSTS$S es QITOWSC sWTSE SCs MRKTSCoEXITSS 
*MCALL UITRERR 


NCCT? ASCII /LEX45& NOT CONNECTED TO ANY FARENT/ 
» BYTE ISv12 
*ASCIT /WILL TRY AGAIN IN 3S SECONDS/ 


NCTL. = »-NCNCT 
+EVEN 
ART? CLR RO * RO = exit status 
CLR Ri ’ Ri = QO means Last 
> attemet to emit status 
sy suceeded. RO <= O means 
y it failed because we 
§ were not connected 
MOV #4eR3 y RZ = number of emits 
> vet to be issued 
ST? NEC RZ § Set timer (asain)? 
EMI EXIT ¢ Noy Just exit 
MRKT#$C  L»Ss2 § Set timer for S&S seconds 
BCS ERR 1 
NEC RO ¢ Use status <= 0 when 
> e@mittins 
EMST#S yvRO y Emit to rarent 
RCS 1% § Failed. Why? 
CLR Ri s Note success 
RR WATT § Wait for 3S secs to rass 
; CMF $0USWr tle .ITs ¢ Failed because not 
§ connected? 
RNE ERR2 §* Any other reasons auit 
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Using Directives for Intertask Communication 


SOLUTION _ 


TST R1 § Failed last time too? 
RMI ERR2 ¢§ Then sive wr 
NEC Ri § Else mote we failed this 
+ time 
§ And announce the 
§ Froblem? 
QIOWSC TO.WVByS»29 9 99 <NCNCT sNCNCTL » 40> 
RCS ERRS 
5 And try as#sin in 3S secs 
IT? WTSESC 1 § Weit for S secs to rass 
RCS ERR4 
BR EMST 
IT? EXITS 5 Exit (with success?) 


Tiirective errors 
Rit QIRERR <ERROR ON MRKTSC> 
R23 DIRERR <ERROR EMITTING TO FPARENT> 
R33 DIRERR <ERROR ON QIOWS$C> 
R43 IIRERR <ERROR ON WTSES$C> 
+END START 


EROGRAM LEX45E 
File LEX45B.FTN 


Solution to Module 4% Lab Exercise 53 ~ Fart Ey» 
offsrring task 


This task is seawned by LEX4SA. It emits se nesative 


status every 3S seconds, then exits after 30 seconds 


(6 emits, then. an exit). 

If an emit status fails because this task was mot 
conmmected to the rarent» another emit status will be 
tried % seconds later. Two consecutive failures cause 
this task to exit with an error message. 


This task must be installed under task mame LEX45B,. 
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Using Directives for Intertask Communication 


SOLUTION 
C 
INTEGER [tS5WeTEITS 
NATA TELTS/-87 ! Error mnemonic 
LOGICALX1 ERLAST ! Flas if last EMST 
C - ! feiled because we were 
C. ! not connected 
DATA ERLAST/.FALSE./ 
C 
NO SOxsT=196 ! Issue 4 EMSTs 
CALL MARK (1isSs2*0SW)> ! Set timer for 3 seconds 
IF (niSW.LT.O) GOTO 900 
CALL EMST¢s(-T) »TSW) ! Emit to rarent 
IF (QSW.LT.O) GOTO 20 ! Failed. Why? 
ERLAST = .FALSE. !' Note success 
GOTO 30 ! Wait for 3 secs to rass 
20 IF (QSW.NE.IEITS) GOTO 910 ! Failed for reason 
C ! other than mot 
C ! 6 6connmected 
IF (ERLAST) GOTO 910 ! Feiled last time too? 
C ! Then sive ur, 
ERLAST = .TRUE. ! Else note we failed 
! this time 
C ! And announce the 
C ! -roblem? 
TYFE 25 . 
29 FORMAT (°LEX45SB NOT CONNECTED TO ANY FARENT‘/ 
1 ‘WILL TRY AGAIN IN 5S SECONIS’) 
C ! And try again in 3S secs 
30 CALL WAITFR(1snSW) ! Wait for 3 secs to rass 
IF (OSW.LT.90)} GOTO 920 
ve @) CONTINUE 
CALL EXIT ! Exit (with success) 
C 
C Directive errors 
C 
900 TYFE X»’ERROR ON MRKT. [SW = ¢% »tSW 
GOTO 1000 
910 TYPE X»’ERROR EMITTING TO PARENT. [SW = ‘’snSW 
GOTO 1000 
920 TYFE xX» “ERROR ON WAITFR. DSW = “DSW 
1000 CALL EXIT 
ENIS 
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Memory Management Concepts 


TEST /EXERCISE 


applies to mapped systems, '‘'U' if 
systems, or 'M,U' if it applies to 


up to 32K words accessible with 


up to 128K words accessible with 


possible without having to program 


Detection of memory protection violations. 


Program executes only at physical addresses that match 
the virtual addresses created by the task builder. 


Write 'M' if the statement 
it applies to unmapped 
both. 
a. Physical addresses 
16-bit addressing. 
b. Physical addresses 
18-bit addressing. 
c. Program relocation 
or task-build again. 
ad. 
e. 
£. 


Virtual address limit of 32K words. 


Fill in the headings and the missing values in Figure l. 
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99 


ADDRESSES 


160000 


100000 


60000 


20000 


0 


MEMORY 


COMMON 


8K WORDS 


TASK 


7K WORDS 


Figure 1 


# VALUES MEMORY 


013422 
000000 
000000 
000000 
012736 


NX COMMON 


Virtual Addresses, APRS and Physical Addresses 
in a Mapped System 


ADDRESSES 


01253600 


TK-7751 


3Siouaxa/LS3al 
s}deou05 juowebeue;-: Aiows~p 


Memory Management Concepts 


SOLUTION 


Write 'M' if the statement 
it applies to unmapped 
both. 


U_ a. Physical addresses 
16-bit addressing. 
words is the limit 
mapped system.) 


M b. Physical addresses 
18-bit addressing. 


M c. Program relocation 


applies to mapped systems, 'U' if 
systems, or 'M,U' if it applies to 


up to 32K words accessible with 
(M is also acceptable since 32K 


of 16-bit addressing even on a 
up to 128K words accessible with 


possible without having to program 


or task-build again. 


M_d. Detection of memory protection violations. 


Ue. Program executes only at physical addresses that match 
the virtual addresses created by the task builder. 


M,U £. Virtual address limit of 32K words. 


Fill in the headings and the missing values in Figure l. 
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VIRTUAL 
ADDRESSES 


120000 


100000 


60000 


40000 


20000 


VIRTUAL 
MEMORY 


COMMON 


8K WORDS 


TASK 


7K WORDS 


Figure 1 


PHYSICAL 
MEMORY 


TASK 


Virtual Addresses, APRs and Physical Addresses 
in a Mapped System 


PHYSICAL 
ADDRESSES 


01342200 


01253600 


TK-7750 
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Overlaying Techniques 


TEST /EXERCISE 


The following is an output 


MAIN CALLING SUBROUTINE 
G CALLING SUBROUTINE Gl 
Gl RUNNING 

MAIN CALLING SUBROUTINE 
Hl RUNNING 

MAIN CALLING SUBROUTINE 
H CALLING SUBROUTINE Hl 
Hl RUNNING 

H CALLING SUBROUTINE H2 
H2 RUNNING 

MAIN EXITING 


display from a task. 


G 


Hl] 


The calling sequence parallels the output display. 


1. 


Draw an overlay tree diagram or a memory allocation diagram 
for a possible overlay structure for the task. 


Write the modules MAIN, 


compile each one. 


Task-build and run the 


G, Gl, H, Hl, and. H2. Assemble or 


task without overlays. Obtain a map. 


Task-build and run the task with all disk-resident overlays. 


Obtain a map. 


Task-build and run the task with all memory-resident overlays. 


Obtain a map. 
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Overlaying Techniques 
TEST/EXERCISE 


Task-build and run the task with G, Gl and H in memory- 
resident overlays, Hl and H2 in disk-resident overlays. 
Obtain a map. 


Use the map to fill in the following table: 


Type of Starting Virtual Starting Virtual 
Overlay Address of G Address of Hl 


No Overlays 


All 
Disk-Resident 
Overlays 


All 
Memory—-Resident 
Overlays 


Disk-Resident 
and Memory- 
Resident 
Overlays 


(Optional) Task-build Example 6-5 so that the module TOTAL is 
in an overlay segment. 


(Optional) Modify Exercise 8. Add a subroutine RTOTAL which 
displays the running total after each job (e.g., THE TOTAL SO 
FAR IS xx). 


NOTE 1 
For debugging, place RTOTAL in the~ root 
segment and place all calls to RTOTAL in the 
module MAIN. 


NOTE 2 ; 
Once RTOTAL is debugged, build the task with 
RTOTAL in an existing overlay segment. Place 
RTOTAL so that the task executes the fastest. 
(Still use autoload, but place RTOTAL to 
minimize loading of overlay segments.) 
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Overlaying Techniques 


SOLUTION 


The following is an output display from a task. 


MAIN CALLING SUBROUTINE G 
G CALLING SUBROUTINE Gl 
G1 RUNNING 

MAIN CALLING SUBROUTINE Hl 
Hl RUNNING 

MAIN CALLING SUBROUTINE H 
H CALLING SUBROUTINE Hl 
Hl RUNNING 

H CALLING SUBROUTINE H2 
H2 RUNNING 

MAIN EXITING 


The calling sequence parallels the output display. 


1. Draw an overlay tree diagram or a memory allocation 
for a possible overlay structure for the task. 


MEMORY ALLOCATION 
OVERLAY TREE DIAGRAM 


G1 H1 H2 


7) 
a 


MAIN 


TK-7744 
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Overlaying Techniques 


TITLE 


SOLUTION 


MAIN 


IDENT /01/ 


eENABLE 


File LEXé6A.MAC 


+GLOBL. 
*+MCALL 
»+MCALL 
¥ 
§ Messades 
g 
CGMS 3 +ASCII 
CGML = .-CGMS 
CHIMS 3 »ASCIT 
CHIML = .-CHIMS 
CHMS 3 »~ASCIT 
CHML = .-CHMS 
EXMS3 *ASCIT 
EXML = .-EXMS 
+EVEN 


Sp “Cy “G> 


START? 


IOFAIL 33 


QLOWSC 
BCS 
CALL 
QTOWSC 
BCS 
CALL 
QTOWEC 
BCS 
CALL 
QIOWsC 
EXIT$S 
QVIRERR 

»ENII 


Lc § Enable lower case 


Mainline routine for Module 6» Lab Exercises 1-6. 
Illustrate different overlays and their effects. 


GyH1i»H § Subroutines called 
QIOWSC sEXITSS 
NIRERR 


/MAIN CALLING SUBROUTINE G/ 
/MAIN CALLING SUBROUTINE H1/ 
“MAIN CALLING SUBROUTINE H/ 


/MAIN EXITING/ 


For each routines tyre message then call routine 


IO.WVBsSyls9e9<CGMS »CGML » 40> 
IOFAIL 

G 

TO.WVBy Sedov » SCHIMS » CHIML » 40> 
ITOFAIL 

Hi 

IO.WVE se Sede» » <CHMS » CHML » 40> 
IOFAIL 

H 

IO.WVBeSedle99eEXMS es EXML »y 40> 


“ERROR ON QIO TO TERMINAL= 
START 
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Overlaying Techniques 


SOLUTION 


FROGRAM MAIN 
> File LEX6éA.FTN 


Mainline rautine for Module 6% Lab Exercises 1-6. 
C Tllustrate different overlays and their effects, 


CG For each routines tyre message then call routine 


CON & CIS ARR 
Oo 


10 TYPE XX» “MAIN CALLING SUBROUTINE G’ 
11 CALL G 
12 TYFE XX» “MAIN CALLING SUBROUTINE H1’ 
13 CALL } 
14 TYFE XX» “MAIN CALLING SUBROUTINE H’ 

15 CALL H 
16 TYPE X»e’MAIN EXITING’ 
17 CALL EXIT 
18 ENII 

1 +TITLE G 

2 +ITENT /017 

3 »sENABL LC 3 Enable lower case 
4 ? 

5 y File LEX6B.MAC 

é ; 

7 ¢ Subroutine for Module é6» Lab Exercises 1-6. 

8 ¢ Illustrate different overlays and their effects. 
9 ; 

10 *GLORL Gi § Subroutine called 
1i +GLOBL IOFATL § Error routine 

12 *+MCALL QITOWSC 

13 ; 

14 + Messades 

15 i 


d , 
16 CGIMS$ .ASCII /G CALLING SUBROUTINE G1i/ 
17 CGOIML = .-CGIMS 


18 +EVEN 

19 ; 

20 y Tyre message then call routine 

21 ; 

Qe Gi? QTOWSC TO.WVRsSris999<CGIMS»CGIML + 40> 
23 RCS ERROR 

24 CALL Gi 

Qo RETURN 

26 ERROR? JMF IOFATIL. 

27 +END 
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Overlaying Techniques 


SOLUTION 


SUBROUTINE G 


Cc 
C File LEX6B.FTN 
C 
C Subroutine for Module 6» Lab Exercises 1-6. 
C LTllustrate different overlays and their effects. 
C 
C Tyre message then call routine 
C 
TYPE **s’G CALLING SUBROUTINE G1’ 
CALL Gi 
RE TURN 
ENY 
«TITLE Gil 
+ITENT /017 
»ENABL LCE ’ Enahle lower case 
; 
» File LEX6C.MAC 
; 
§ Subroutine for Module 6% Lab Exercises 1-6. 
¢ [llustrate different overlays and their effects. 
3 
*GLOBL IOFAIL y Error routine 
eMCALL QIOWSC 
3 
5 Messades 
3 
GIRUN? *ASCII /G61 RUNNINGZ 


GIRUNL = 


+~GLIRUN 
+EVEN 


; 
§ Tyre message then return 
; 


QIOWSC TO.WUBy Sele ese <GL RUN» GIRUNL. + 40> 


BCS ERROR 
RE TURN 

JMF TOFAIL 
eEND 
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fi 


id Whore 


t 
Se 


SO TSI 


10 


oy Py 
Ne 


Na 


OT IO 


“a> “> Sp “E> “Br “Gd 


Messe 


> "@> “a> 


¥ 
CHIMS? 
CHIML. = 
CHEMS 3 
CH2ML = 


Tyre 


Tl «> «> ‘es 


#2 
e > 


Overlaying Techniques 


SOLUTION 


SUBROUTINE G1 


File LEXé6C.FTN 


Subroutine for Module 6» Lab Exercises 1-6. 
Illustrate different overlays and their effects. 


Tyre messase then return 


TYFE X» “G1 RUNNING’ 


RETURN 
END 


+TITLE 
+ IDENT 


+ENABL 


File LEX6Ii.MAC 


+GLOBL 
«GLOBL. 
*MCALL 


es 


»ASCIT 


o~CHIMS 


“ASCII 


«~CH2MS 


+EVEN 


message 


QIOWsC 
RCS 
CALL 
QLTOWSC 


ROS 


ERROR ¢ 


CALL 
RE TURN 
JMF 
oEND 


lH 
/O1/ 
Lc s Enable lower case 


Subroutine for Module 6» Lab Exercises 1-6. 
Illustrate different overlays and their effects. 


HivH2 y Subroutines called 
IOFATL y Error. routine 
QIOWSC 

7H CALLING SUBROUTINE Hi/ 


7H CALLING SUBROUTINE H2/ 


then call routine 


TO.WVBy Seedy ye sc CHIMSsCHIML » 40> 
ERROR 

H1 
TO.WVRySyders yi CH2MS* CH2ML » 40> 
ERROR 

H2 


IOFAIL 
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me 
SC ON BID NR 


1i 


Overlaying Techniques 


SOLUTION 


SUBROUTINE H 
File LEXé60.FTN 


Subroutine for Module 6» Lab Exercises 1-6. 
[Illustrate different overlays and their effects. 


Tyre message then call routine 


OAaAI AAA 


TYPE X*»’°H CALLING SUBROUTINE Hi’ 
CALL Hi 

TYPE X»’°H CALLING SUBROUTINE H2’ 
CALL H2 

RETURN 

END 


»TITLE H1 
*LDENT 7/017 


*ENABL LC § Enable lower case 
File LEX6E.MAC 


Subroutine for Module 6» Lab Exercises 1-6, 
Illustrate different overlays and their effects. 


arp > > “EP EP? “EP 


»GLOBL IOFATL. > Error routine 
MCALL QLOWSC 


Messages 


“> “Er “G> 


HIRUN? ASCII /H1 RUNNING/ 
HIRUNL = .-HIRUN 
+E VEN 


Tyre messase then return 


Hie 3 QLIOWSC TLO.WVB ey Sy dy se» SHLRUNSHIRUNL 2 40% 
RCS ERROR 
RETURN 

ERROR? JMF IOFAIL 
eENDT 
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CON DB LADGTH 


a 
eM OO MON ® CLD Whe 


) 


foe 


b. 


Overlaying Techniques 


SOLUTION 


SUBROUTINE Hi 


C 
C File LEX6E.FTN 
C 
C Subroutine for Module 6s Lab Exercises 1-6, 
C Illustrate different overlays and their effects. 
C 
C Tere messasde then return 
Cc 
TYPE x» ’HL RUNNING’ 
RETURN 
END 
»>TITLE H2 
~IDENT /017 
*ENABL LC + Enable lower case 
; 
5 File LEX6éF.MAC 
5 
§ Subroutine for Module 6s Lab Exercises 1-6. 
> Illustrate different overlays and their effects. 


*GLOBL. YTOFAIL s Error routine 
»*MCALL QTOWSC 


Mestadeas 


“a> > “ED 


H2eRUN? «ASCII /H2 RUNNING/ 
H@RUNL = «~H2RUN 
+EVEN 


Tyre message then return 


“S> “er “Ss 


H23% QIOWS$C IO.WVBRySed so 9s<HORUNsHORUNL » 40> 
RCS ERROR 
RETURN 
ERROR? JMF IOFAIL. 
eENT 
SUBROUTINE H2 
C 
C File LEX6F.FTN 
C 
C Subroutine for Module 6s Lab Exercises 1-6. 
C Illustrate different overlays and their effects. 
C 
C Tere message then return 
C 
TYPE *»’°H2 RUNNING’ 
RETURN 
ENT 
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2 Se 8S “ER “Sh “Ae SS 


a> “> “> “> 


G> a> “ES “SP Er Ge SF 


Overlaying Techniques 


SOLUTION 


Module 4» Lab Exercise 3 
Taske-build command toa build MACKO-11 without overlays 


™LINK/MAF LEX6A*LEX6ByLEX6C yLEXS60y LEXGE » LEXGF 9 — 
“SLES lL» LIPROGSUBS/LIBRARY 


LEX6A = MAIN 


LEXOB = G 
LEXé6C = GL 
LEX60 = H 
LEXSE = HI 
LEX&éF = H2 


Module 6» Lah Exercise 3 
Task-builed command to build FORTRAN with mo overlays 


SLINK/MAP LEXé6AxLEXSBxLEXSCeLEXS0 ye LEXGE y LEXGF » - 
“SLES CL» LIFAPOTS/LIBRARY * 


LEX6A = MAIN 
LEX6BR = G 
LEX6C = G1 
LEXé0 = H 
LEX6E = Hi 
LEX6éF = H2 
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Overlaying Techniques 


SOLUTION 


Module Sy» Lah Exercise 4 


-OLL file for huilding MACRO-11 with a11 disk resident 
§ overlays 

»>ROOT LEXéA-~FPROGSUBS/LE-*k(LEXSB-LEX6C » OVRH) 
OVEH 3 »*FCTR LEX60-(LEX6EsLEX6F > 


S> “ae “S> 
r- 
<< 
am 
> 


= MAIN 
a OG 
G1 

H 

Hd 
LEXéF = H2 


S< 

fe 

F 3 
HoH HD ii 


4 Se “EP “Se 
- 

Pry iti iti 
xXx 
co 
pat 
li 


«END 


Module é&»y Lah Exercise 4 


+ODL file for buildinss FORTRAN with all disk-resident 
overlays . 

«ROOT LEX6A~FLIB-xkKCLEX6B-LEX6C-FLIBsHSEGS) 
HSEGS? ~.FCTR  LEX60-FLIB-(LEXé6E-FLIBsLEXéF-FLIB) 
FLIES . +FCTR LEiCivLAF4FOTS/LE. 


a 
y 
& 
¥ 
a 
bd 
“ 
¥ 


y 
¢ LEX6éA = MAIN 
> LEX6B = G 
y+ LEX6C = Gil 
¢ LEX60 = H 
¢ LEX6E = Hi 
§ LEXSF = H2 
ENT 
§ Module 6» Lah Exercise 3 
y 
§ .O0L file for MACKO-11 with all memory-resident 
§ averlays 


“ap 


sROOT: LEXSA-PROGSUBS/LE-X! (LEX6B-LEX6C 9 OVRH) 
QURH$ .FCTR  LEX6II-! (LEX6EyLEX6F) 
LEX6A = MAIN 
LEX6B = G 
LEX6C = Gi 
LEX6l = H 
LEX6E = H1 
LEX6F = H2 


“Se “Erp “Sr “S> “Sh SP “=> * 


*ENT 
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S> “S> “Sr “E> 


HS 
Fh 
r 


a 
’ 
a 
y 
a 
y 
ry 
, 
ry 
g 
a 
y 
a 
y 


“Se > 


“S> “Sb 


OV 


“S> “S> “Se “SD “SP Se SED SED 


‘eo “E> a> “es a> 


Module 6 Lab 
-OUL file for 


«ROOT 
EGS: +FCTR 
Ik; oFCTR 


LEX6A = MAIN 
LEXé6éB = G 
LEX6C = Gi 
LEX60 = H 
LEX6E = Hi 
LEX6F =H2 


ENT 


Module 4» Lah 


OU file for 

disk-resident 
«ROOT 

RH? +FCTR 


LEX46A =MAIN 


LEX6B = G 
LEX6C = Gi 
LEX60 = H 
LEX6E = HL 
LEXGF = H2 
*ENTD 


Moctule 6» Lah 


ODL file for 


Overlaying Techniques 


SOLUTION 


L 94 


Exercise & 
FORTRAN with a11 memory~-resident overlays 
LEXé6A~-FLIE~-xk! C(LEX6B-LEX6C-FLIB»sHSEGS >) 


LEX60-FLIB~-! (LEX6E-FLIByLEX6F-FLIB) 
LES CL» 1lIF4A4POTS/LE 


Exercise 6 


MACRO-11 with some memory-residents some 


overlays 
LEX6A-FROGSUBS/LE-X! (LEX6B-LEX&C »O0OVRH) 
LEX4I!- (LEX6E »LEX&F ) 


Exercise 6 


FORTRAN with some disk-residents some 


memory-residetm overlays 


+ ROOT 


HSEGS$ .FCTR 


FL. 


a> > Ge > “ae SP “Ed CD 


IBS eFCTR 
LEXGA = MAIN 


LEX6B = G 
LEX6C = G1 
LEX60 = H 
LEX6E = Hi 
LEX6F = H2 
eENT 


LEX6A-FLIB-~xk! CLEX6B-LEX6C-FLIByHSEGS > 
LEX60-FLIB-CLEX6E-FLIBsLEXSF-FLIB) 
LESCisLIFAPOTS/LE 
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Overlaying Techniques 


SOLUTION 


Use the map to fill in the following table: 


Type of Starting Virtual Starting Virtual 
Overlay Address of G Address of Hl 


No Overlays 


All 
Disk-Resident Answers will vary depending on 
Overlays — students' particular solution. 


All 
Memory—-Resident 
Overlays 


Disk-Resident 
and Memory- 
Resident 
Overlays 


Module 6» Lab Exercise 8 


-ODOL file im MACRO-11 to elace TOTAL in an overlay 
sesmernt « 
All overlays are disk-resident 

«ROOT MAIN-XKCA~-( JOB» JORXX)»B»s TOTAL) 

+ENT 


“ae “E> “E> WED “SY 


Module 6» Lab Exercise 8 


-O0L file in FORTRAN to elace TOTAL in an overlay 
sedment. 
All overlays are disk-resident 
+ROOT MAIN-FLIB-X(COVRALE-FLIBsTOTAL-FLIB) 
OVRAS »FCTR A~FLIB-CJOBI~-FLIB:s JOBXX-FLIB? 
FLIB?: +FCTR LESCLl»LIFAFPOTS/LB 
»ENT , 


o>» <> Ss “> Sr 
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“> “> “SP GP “Gs “Gh > “Sr Sd “Sr “SP “HP “E> BrP > Cr SP KP 


+ 


OF 1? 


OF 2: 
ANS! 


FILE 


subroutine A. 
1 or Job 2. 
JOB2 which 


Taske-huild 
file. 


Overlaying Techniques 


SOLUTION 


»TITLE MAIN 
IDENT 017 
~-ENABL LC 
LEX69A.MAC 


and exits. MAIN then 


kLeering 


instructions? 


®eMCALL QIOWSCeEXITSSvQIOWSS ¢ 
«NLIST BEX ; 
¥ 
+ BRLRW 1024.4 r] 
y 
«ASCII /THE MAIN SEGMENT 
“-ASCIT ¢/ CALL AZ 
LMESL=.-MESI 
*ASCIT /THE MAIN SEGMENT 
LMES2 =.-MES2 
*ASCIT /THE MAIN SEGMENT 
LMESS =,.-MES3 
*ASCIT /THE MAIN SEGMENT 
LMES4 =,-MES4 
*ASCIIT /THE MAIN SEGMENT 
LMESS =,~-MESS 
»FSECT OTHER 
«WORT va ; 
«WORT OF 9 
3 
+WORT! 2 $ 
+ BLAW 1 $ 
eFSECT > 
+EVEN ’ 
«WORT 0 ’ 
+ BLAKE 1 $ 
+EVEN 3 
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a 
y 


Enable lower case 


¥9EX 


Modified to call RTOTAL to disrelay the running 
total after each call to A 


UreGRLvyOVRey REL y RW ¢ 


This Frogram erints 3 message and then calls 
Subroutine A asks 

It then calls either subroutine 
Fverforms the Job and 
MAIN then calls subroutine &. 
message 
more Limes s 
Fairal ila» 


whether to rerform job 
JORL or 


diselays the results. 


Subroutine B disrlays a 
calls 
@ Srand total of the orerations. 
it displays the grand total and exits. 


subroutine A 3 


Use LEX69A,0DL as the inruts sex 


Surrelied macros 
Tio mot list binary 
extensions 

Leave srace to make 
sediment larger 


IS RUNNING ANTI WILL / 


WILL NOW CALL B/ 
WILL NOW CALL A/ 


WILL NOW CALL TOTAL 7 


WILL NOW EXITZ 
FSECT for data 
lst orerand 
address of oreratian 
im ASCII 
2nd orerand 
Answer to oreration 


Rack to 
Move to 
Total 

Orerand in 
Move to 


blank PSECT 
word houndary 


ASCIT 
word houndary 
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Overlaying Techniques 


SOLUTION 


START? QIOWSC TO.WVReSriveyecMESIyLMES1*40> sWrite MES1 


a 


y 


CALL A 
CALL RTOTAL 


Call subroutine A 
§ Call routine to 
§ disrelay running 
§ total 
ES2»LMES2»40> sWrite MES2 


a> 


er “<> “> 
<@> “> “E> 
IT; 


QIOWSC TO.WVBe Sole yo eh 


CALL BK § Call subroutine & 
Set ur for loor 
MOV #3eR4 § Counter 


LOOFS QTOW$SC TO.WVER ey Seley ee MESS»LMES3S240> » Write MES3 


IPO 


IOI Oo Irnaan 


OOo 


CLR ANS § Clear answer in case 
> OF moO OPeration 
CALL A § Call subroutine A 
CALL RTOTAL ¢ Call routine to 9 9EX 
§ disrlay running ¥FEX 
: -§. total 93EX 
SOR R4sLOOF + Decrement counter and 
§ loor back until done 
QIOWSC  TO.WVBs Sele ese MESA LMES4 40> §& Write MES4 
CALL TOTAL § Call routine to 
? 


disrelay grand total 
QTOWSC TO.WVBsSedeyes<MESS»LMESS*40> » Write MESS 
EXITSS , Exit 

«ENT START 


FROGRAM MAIN 
FILE LEX69A.FTN os LEX 


Modified to call RTOTAL to disrlay the running thEX 
after each call to A PIEX 


This Frogram rrints 3 message and then calls subroutine 
A» Subroutine A asks whether to rerform Job 1 or Job 2.F 
It then calls either subroutine JOB1 or JOB2 which 
rerforms the oreration and disrlays the results. MAIN 
then calls subroutine B which disrelays 8 messase. MAIN 
then calls subroutine A 3 more timess keering @ strand 
total of the orerations. Finally» it diselays the 

sfrand total and exits. 


Task-build instructions! Use LEX69A.0DL as the inreut! !EX 


file for RTOTAL in the root. Use LEX69R.00L as the !!EX 
imeut file for RTOTAL in the best overlay segment 11EX 
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C 


Overlaying Techniques 


SOLUTION 


COMPLEX DUMMY (1024) ! Leave srace to make 
! segment larger 

COMMON /OTHER/OF1 OF sOF 2+» ANS 

INTEGER OF 1*O0P*%0F2» ANS 

VATA OF LS OF 2/5 ¥2/ 


COMMON /TOTCOM/TOT 
INTEGER TOT ! Total 


TYPE &»“THE MAIN SEGMENT IS RUNNING ANID WILL 
ICALL A’ 


CALL A ! Call subroutine A 

CALL RTOTAL ! Call subroutine !!EX 
! RTOTAL to disrlayw! !EX 
! running total 1lEX 

TYFE &»’THE MAIN SEGMENT WILL NOW CALL B’ 

CALL & ! Call subroutine & 


TO 10» I[=193 
TYFE X» “THE MAIN SEGMENT WILL NOW CALL A’ 


“RTOTAL to disrlay! 'EX 

0 othe running totel! !EX 
TYFE *» “THE MAIN SEGMENT WILL CALL TOTAL’ 
CALL TOTAL (TOT) ! Call routine to 

! disrpley drand totel 
TYPE Xy’THE MAIN SEGMENT WILL NOW EXIT’ 
CALL EXIT ! EXIT 
ENIt 


ANS = 0 ! Clear answer in case 
! of no oreration 
CALL A ! Call subroutine A 
CALL RTOTAL ! Call subroutine !!EX 
{ 
' 
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CON RU DS Whe 


fb et eet 
he CWOUMON DCAD GRR 


S> > “@> Sh “eP 


“> “<> 


Overlaying Techniques 


SOLUTION 


*TITLE RTOTAL 
*IQENT /01/ 
*+ENABL LC 


<> 


FILE LEX69B.MAC 


Subroutine to Frrint the running total 


S> “S> Q> “E> ‘er 


*MCALL QTOWSS ; 

»NLIST BEX ; 

+ extensions: 

RTOFMT? .ASCIZ /THE TOTAL SO FAR IS Z0./ ¢Format 
RTOTEBF? .BLKE 100. § Outeut huffer 


+EVEN 

*+NLIST BEX § List binary extensions 
RTOTAL? 3MOV #RTOTEF »RO > Set ur for #EDMSG 

MOV #RTOFMT +s R1 3 

MOV #TOTsR2 $ 

CALL $E0IMSG y Edit messade 

QIOWSS #10.WVB es €5 81 oe oy SERTOTEF eR 1 840° 

y Frint it 
RETURN 
»END 


SUBROUTINE RTOTAL 
FILE LEX69R.FTN 


Subroutine to rrint the running totel 


IOI IN 


COMMON /TOTCOM/TOT 

INTEGER TOT 

TYFE Sy» TOT 

FORMAT(’ THE TOTAL SO FAR IS’» T49’.%) 
RETURN 

ENT 


cf 


Module 6% Lah Exercise 9? 


-OLL. file in MACRO1ll:s elacins RTOTAL in the root 
sedment for testing 
All overlays sare memory-resident 


+ROOT LEXS69A~-LEX69R-*! CA~! CJOBI1»y JOBXX) »y Bs TOTAL ) 


LEX69A = MAIN modified to call RTOTAL 
LEXé69R = RTOTAL 
eEND 
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Enable lower case 


External system 
lo mot list binary 


“> “os “> Ss “> 


Overlaying Techniques 


SOLUTION 


Module 6» Lab Exercise 9 


-OUL file im FORTRAN» elacins RTOTAL in the root 
sedment for testing 
All overlays are memory-resident 
“ROOT LEX69A-LEX469RB-FILIB-x! (OURA»OURB» TOTAL —-FLIB) 


QOVRAS eFCTR A-FLIB-! (JOBI~FLIB: JORXX~FLIE) 
OVRE? +FCTR B~FLIB 
PLIBS eFCTR LE¢CLvyLIF4APOTS/LE 


a> <> Sr <> 


e> “We So “E> “ED 


“ey 


> “> “> Sa “er 


LEXé9A = MAIN modified to call RTOTAL 
LEX69R = RTOTAL | | 
»~ENT 


Module 6» Lah Exercise 9? 


-O0L file in MACKO-ily elacings RTOTAL in the best 
overlay sesxment ; 
All overlays sre memory~-resident 

“ROOT LEX69A~K! CA-LEXS69R~! (JOBLy JOBXX) » By TOTAL) 
LEX69A = MAIN modified ta call RTOTAL. 
LEXS9R = RTOTAL 
«ENT 


Module 6» Lah Exercise 9 


-O0UL file im FORTRAN: elacing RTOTAL in the hest 
overlay segment 
All overlays ere memory-resident . 

“ROOT LEX69A-FLIB-xX! COUR As OVRB»OVRC > 


QOVRA3 oFCTR A~LEXS69BR=FLIB~! (JOBI-FLIB: JORXX-FLIB)D 
QOVRBEE »FCTR B-FLIE 

QOVRCE? «FCTR TOTAL~FLIE . 

FLIES »FCTR LEC» LIF4FOTS/LE 


<S> S> “> “> 


LEX69A = MAIN modified to call RTOTAL 
LEX69R = RTOTAL 


ENT. 
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Static Regions 


TEST /EXERCISE 


Create an initialized resident common (Size: 32(18) blocks = 
1824(18) words, contents: 25(18@) in each word). Check with 
your course administrator to find out where to place’ the 
common type partition. Write two tasks, one that modifies all 
values in the common, and one that reads the values’7 and 
displays them. 


Create a resident library using the supplied FORTRAN callable 
Subroutines AADD, SUBB, MULL and DIVV (all in LIB.MAC). Write 
a task that calls one or more of the routines. For example, 
write a task that asks for four numbers (A, B, C, and D) and 
then computes and displays (A * B) + (C * D) = answer. 
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Static Regions 


SOLUTION 


| *TITLE LEXZIA 


2 *ITENT 7/017 
3 *ENABL LC y Enable lower case 
4 a+ 
a * File LEX71A.MAC 
& ; 
? ¢ Frosram which creates and initializes 3a common resion 
8 § which will be referenced using overlaid FPsects. 
9 ; 
10 + Sive 1024. words,» contents all 25’%s 
11 5 
12 § Task-build instructions? Must include /SHAREABLE?: COMMON 
13 > amd /SNOHEADER switchess STACK=0 and PAR=COMWF ortions. 
14 ’ Must create .STR file. May be /COMESFIC or ahsolute 
15 s (default). 
14 ; 
17 > The code is elaced in a Fsect mamed MYIATA 
18 eo 
19 *FSECT MYDYATA DeGBLyOVR ¢ Tefaults REL sRW 
20 »REPT 1024. i Rereat count 
21 »>WORT 25. § Word of 25¢10) 
22 +ENDIR § End rereat ranse . 
23 »~END 
1 BLOCK DATA LEX71iA 
2 Cc 
3 C File LEX71A.FTN 
4 C 
5 C Frogram to create and initialize 3a resident common 
6 Cc 
7 C Size is 1024 words, initialized with all 25’s 
8 Cc 
9 C Task-build instructions? Must include /SHAREABLE? COMMON 
10 C and /NOHEADER switches’ STACK=0 and FAR=COMWF ortions. 
11 C Must create .STEK file. May be /CONTE? FIC or absolute 
12 C (the default). OTS library NOT reauired. 
13 G 
14 COMMON /MYIIATA/ I¢61024) 
15 VATA I /1024xk25/ 
14 ENT 


83 


Static Regions 


SOLUTION 


1 eTITLE LEX718 
2 eINENT /0O1/7 
3 *ENABL LC i Enable lower case 


4 9+ 

a y FILE LEX71B.MAC 

é ? 

7 + This task decremtents the values in the static common 
8 ¢ resion LEX71A. It uses the technmiaue of overlaid FPsects 
9 § to reference the resiorie 

10 3 

Li § Taskebuadld instructions? 

12 9 

13 3 SLINK/MAFP/OFR TION WEXZLB 

14 3 [~—Ortion? RESCOM=LEX?Z LAC RW 

15 ; Oetion? <RETS 


14 

17 *MCALL QLOWSS ev EXIT#&S ¢ Sustem macros 

18 oFSECT MYTIATA DryGRLeOVR § Fsect used in COMWFE 

I : * local symbol for start 

20 , of resion 

zi +FSECT * Back to blank Psect 

2a TOSE?3 + BLKW 2 ¢ IT/0 status block 

2 ARGS eBLRW I. * Arsument bleck for 

24 i error code 

25 RUFF ¢ BLAKE 100. ¢ Qutewt buffer 

26 FERRI 3 “ASCIZ /TIR ERROR ON QTO. CONE = ZY ¢ Directive 

27 $ error messaste 

23 FERR2 3 *ASCIZ '!$170 ERROR ON QO. CONE = “AN! ¢ I70 error 

29 j Mmesgase 

30 LiQNE 3 *ASCIT /LEX7ZIB HAS MODIFIED THE YALUES/ ¢ Tone 

31. “ASCII / IN THE COMMON LEX71A/ $ Messaste 

32 LONE ag ~ TONE . 

3S W =1LO24, § Word count in resion 

34 «EVEN 

3a 

36 STARTS MOV My RR § Starting addr of data 

37 i in the resion 

38 MOV #We RS 5 Looe caunt 
¥ 
y 


“<> 


39 LOOF NEC (R29 + tecreament value 

40 SOB RS» LOOF Loor back aif not done 
41 QlLOWES #FIO.WVRy tS eo tly o FLOSBs o CHOONE » ELIONE y 40> 
42 RCS ERROR ’ Check for dir error 
43 TSTE TOSK § Check for [70 error 
44 BLT ERROR 1. § Branch om I70 error 
43 EXITS y Exit 

4S § Error code 

47 ERROR? MOV $0NSWy ARG > Move TSW to ars block. 
43 MOV FRERR Dy RA ¢ Addr of format string 
49 BRR SETUF § Branch to $EUMSG code 
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Static Regions 


SOLUTION 


wie) ERROR? MOVE TOSKs RO y Extend sis om I/0 
a A MOV ROvARG § Status and elace in 
wa y ars block 

a MOV #FERR2 » RL s Addr of format string 
u4 SETUF? MOV #ERUFF ¥ RO § Addr of outrut buffer 
oe MOV FARGsR2 y Addr of arsument block 
wT) . CALL. $EQMSG y Edit message 
rad QIOWSS #LO WV tS ye #1 eo oe HEBRUFF yo Ry 40> oF Write 
w3 + MesSsacdte 
39 EXITS y Exit 
6&0 »ENT START 

1 FROGRAM LEX71B 

= C 

3 C File LEX71B.FTN 

4 Be : 

tw) C Task to decrement each word in the static common 

6 C resiom LEX71A. It uses a COMMON to reference 

7 C the data, 

8 C 

9 CO Task-Bbuild instructions? 

10 C : or 

Lt C LINK/MAF/OF TION LEX71LByL EB? C1Lsi JFOROTS/LIBRARY 
di C Oetion? RESCOM=LEX71A/RW 

13 C Ortion?. <RET 

14 C ; 

LS COMMON /MYIIATA/ (61024)! Common to reference 

16 C ‘= ! shared region 
1? C lecrement values 

18 no S K=1*1024 

19 LOREL ORD 1 
20 3 CONTINUE 
21 WRITE (310) ! Tisrlay done message 
22 19 FORMAT (¢(*° LEX71B HAS MODIFIED THE VALUES IN THE 
23 1 COMMON LEX71A‘%) 
24 CALL EXIT 
25 ENT 
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CON @ CAD ORI 


Static Regions 


SOLUTION 


eTITLE LEX71C 
+IQENT /O1LZ 
eENABL LC i Enable lower case 


+ 


FILE LEX71iC.MAC 


This task sets the values from the static common 
region LEX71A. It uses the techniaue of overlaid Fsects 
to reference the resior. 


Task~-build instructions? 
SLINK/MAFP/OFP TION LEXZ71C 


QOetion? RESCOM=LEXZLA/RO 
Qetion? <RETS 


‘S> “S> > “S> S> E> “C> “CrP Wh “D> “CP “EP CP 


*+MCALL QTOWSSsEXIT&S ’ Sustem macros 

+FSECT MYDATA DtyGBLsOVR ¢ Fsect used in COMWF 

local symbol for start 

of resion 

Back to hlank Psect 

I/0 status block 

Argument block for 

error code 

Quteut buffer 

Format strings for 

Outreut of data 

FERRI? .ASCIZ IR ERROR ON QIO. USW = Z0/ ¢ Directive 
5 error messaesde 

FERR2? «ASCIZ '!1I/70 ERROR ON QTO. CONE = “40! ¢ I70 error 


M=, 


+PSECT 
TOSBt .BLKW 2 
ARGS »BLKWUO 


RUFF ¢ + BLAKE 100, 
FMT: “ASCIZ /2480/ 


S> > “Sh “SP ‘E> “CP “GP “A> “CH 


3 Messase 
N=128. > Looe count ~ 128. Llinesys 
>’ 8 €5 ver line 


«EVEN 


“> 


START? MOV #MyR2 Starting addr of data 
im the resion 
Loor count 


Quteut buffer 


MOV #N9RS 
LOOF ? MOV #ERUFF » RO 

MOV #FMToRI Format strings 

CALL. $ENMSG Edit messase 

QTOW$S #€10.WVRe #5 #1 os kTOSBy y SEBUFF eo RI #40% 


a> > “SP > E> SP 


BCS ERROR i Check for dir error 
TSTE ITOSK& ¢ Check for I/0 error 
BLT ERRORA § Branch om I/O error 
’ Stay here for sood write 
SOR RS» LOOF § Tecrement counters loor 
> hack if not vet done 
EXITS ¢ Exit 
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te 


‘nd 


& rs 


cf 


7 ONES 


Static Regions 


SOLUTION 


5 Error code 


ERROR? MQV $USW» ARG ¢ Move DSW to ars block 
MOV #FERR1 eo RA §$ Addr of format string 
BER SETUF ¢ Branch to $E0MSG code 
ERRORL? MOVE IOSBRs RO ¥ Extend sigm om I70 
MOV RO ARG y Status and rlace im 
> ars block 
MOV #FERR2 e RL > Addr of format strings 
SETUF? MOV #EUFF » RO § Addr of OutrutL buffer 
MOV #ARG ey R2 s Addr of arsument block 
CALL. $EDMSG § Echit message 
QLOWS$S #LOWVRy #5 ett yy so yc HRUF RF oR B40 § Write 
$ Message 
EXIT#S s Exit 


ENT! START 


FROGRAM LEX71C 


fj7 oo 


Re ke 


File LEX71C.FTN 


et 
S 


7-0) £32 EELS ee em 


Task to read dats from the static common region LEX71A 
and rerint it out at TIt. It uses a COMMON to reference 
the data. 


Task~-bhuild instructions? 


LINK/MAF/OFP TION LEX7ZiICsLBE?Cls 1 IFOROTS/LIBRARY 
Ortion? RESCOM=LEX71A/RO 
Ortion? <RET 2 


COMMON /MYDATA/ 1.01024)! Common to reference 
! shared resion 
Loor through to diselay resdiony 8 numbers on a line 
ng SO. Jo = Lry1024+8 
WRITE (S¥10) (LOCK) sK=J9J4t7) § Write values 


aa 
or ae ae 


10 FORMAT €% “’»I2»¥7I8) 
3Q CONTINUE 

CALL EXIT 

ENYI 
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WOON OCIS Gr 


10 


a 


¥ 


Sr “SP > “E> “G> “Sr “GP “Srp Sr HP EP SP EP “Ed 


+_- 


Static Regions 


SOLUTION 


*TITLE LEX72 
*IQENT /01/ 
*ENABL, LC  ¥ Enable lower case 


File LEX72.MAC 
Solution to Module 7s Lah Exercise 2 


Tesk comreutes sum of Froducts using resident library 
PAULIMES » 


Assembly and task build instructions? 


MACRO/LIST LE¢CLiyLIFROGMACS/LIBy devi CufdILex72 
LINK/MAF/OF TIONS LEX729L Bi Cl» 1lIPROGSURS/LIE 
Ortion? RESLIB=LIB/RO 


*MCALL QTOWS sQTOWSS sQITOWSC o DIRS »EXITSS 
»*MCALL DITRERR,y IOERR ibe, 
Routines im SYSLIE 


*-GLOBL ¢CUTBRs $E0MSG6 3 
~GLOBL MULL » AAT § Routines in library LIF 
Messages 


HURMS: .ASCIIT /TASK WILL COMPUTE CAXB) + (CKD) /2152¢122 


“ASCII /ENTER NUMBERS IN DECIMAL.7 


HURML = .-HORMS 


APRMT: sASCIT /ENTER Az / 


Length of Fromet 


PLEN = .-AFPRMT ; 
5 Cassumed to be all the 
> same lensth) 

BFRMT? «ASCII ENTER B? / 

CFRMT: «ASCII ENTER Ci? / 

DFRMT3 +ASCII /ENTER [3 / 

* ASCII buffers : 

ASCA? + BLAKE 7 ¢* ASCII for A’s value 

ASCE? BLAKE 7 ¢ Same for &- 

ASCC3 +BLANEB 7 5 C 

ASCII + BLAKE 7 > It 

OUTBUF? .BLKE 80. 


a 


y 


$EQNMSG format strings 


EQMFMT$ «ASCIZ /ANCZAVA & ZVA)D + CAVA & ZVA)D = ZT 


«EVEN 


y FORTRAN-comeratible ardument blocks? 


MULARG$ .WORD 3 


‘ § For MUL 
«WORD M1 

«WORT M2 

WORD MULRES 
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cn ch CA OR 


AD Gh ee 


ALIQVARG: «WORD 3 


“Meh “Sp “> “> SP SP SO 


Static Regions 


SOLUTION 


For ADI 

First MUL result 
Second result 
Grand total 


«WORD MURES1 
»WORD MULRES 
WORD GRTOT 


“a> “> “a> “ad 


ASCII buffer table. Initially each entry in this table 
consists of the address of a rromet string followed by 
the address of the buffer to store the inrut. After 2 
string is inreutys however: the rromet strings address is 
rerlaced hy the length of the inrut string. This 
table, with the addition of the final value GRTOTy then 
serves as the $EDMSG arsument block. 


ELTIMARG 
ARTEL? WORT AF RMT »¥ASCA 


«WORT BF RMT» ASCE 


CTRL? ~WORD CFPRMT»ASCC 


GRTOT? «WORD 


a 
bd 
“ 
y 


»WORT DFPRMT»ASCH 
a Grand total (numeric 
value is inserted 


directly into $E0MSG 
block) 


ar “Or 


S> “Gy 


Other mumeric values 


M1: » WORTH First MUL argument 
M23 eWORT Second MUL arsument 


MURESI? «WORD 
MULRES? . WORD 


First MUL result 
MUL result 


‘a> “Gr “E> “OP 


RIFRMT? QIOWS IO.RPRySvivsTOSKey vis 7ey ePLEN» ‘So 
IOSE; *BLAW 2 


“> S> “> 


is 


Code 


START? QIOW$C TO.WVBReSedyoeecHOIRMSsHORML 40> §¢ Identify 


MOV #M1°RS y RS => location to store 
y binary inreut values 
MOV - €ROPRMTy R4 y R4 => “read with 
$ Fromet" DFE 
MOV #ABRTBL » RS y RZ => ASCII buffer table 
CALL GETINEF + Get A 
CALL. GET INF > Get & 
MOV #MULARG » RS ys RS => MUL ars block 
CALL. MULL + to first multiply 
MOV MULRES »MURES1 , Save result 
MOV #M19RS5 > Reset resisters 
MOV $RIPRMT + R4 .§ (FORTRAN callings 
MOV #COUTEL » RS y convention does not 
> guarantee they are 
y Freserved, ) 
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101 
102 
103 
104 
10S 
104 
107 
108 
109 
110 
111 
112 
113 
114 
Lis 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
1264 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 


Static Regions 


Get C 
Get D 


lio second multirly 


Add multirlication 
results 
Frerare 

for 

$EDMSG 


#OUTBUF + R1» #40> 


o store binary result 


rromet stringy 
vy address to store 
t 


e +2 


e +4. Location formerly 
address of Fromrt now 
engsth of inPeut 


¥ Load eromet address 
RO => ineut buffer 

Cory to QI0O DFR 

Get inrut 

lirective error 

I/0 successful? 

No 

Save inrut lensth 
Convert to binary 

Store binary 


OWS: 


SOLUTION 
CALL GETINF ; 
CALL GETINF $ 
MOV #MULARG YRS 
CALL MULL. ; 
MOV F#ANDARG s RS 
CALL AALL ; 
y 

MOV #OUTRBUF » RO ; 
MOV #E0MFMTsR1 ; 
MOV #EDIMARG »R2 3 
CALL $EDMSG 
QIOWSS #FIO.WVRs €5 281 vy ot 
RCS IONER : 
EXIT$S 

> Subroutine GETINF to get inreut values. 

¥ 

> Irirut3 RS => location t 

; R4 = QIO DFE 

; R3 = Address of 

3 followed b 

; ASCII ineu 

, 

§ Outreuts RS = infeut valu 

5 R4 Unchanged 

; R3 = inreut valu 

; containing 

5 contains 1 

’ 

GETINE? MOV (R3)+°Q.IOPL4+6(R4 
MOV (RS +*RO ; 
MOV RO»Q.TOPL¢(R4) ; 
DIRS R4 ; 
RCS IODER > 
CMFR IOSKs #IS.SUC ; 
BNE IOIOER ; 
MOV IOSEK+2»~-4¢(R3) > 
CALL $C0Ts ; 
MOV Riv (RS+ $ 
RETURN 

> Error messages? 

TODER! DDTRERR <ERROR ON QIOWS> 

IOIOER? IOERR #IOSB»y<ERROR ON QI 
»ENT START 
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Ct 
C 
Cc 


( 
C 
C 


C 

15 
oye 
Ka sd 


Static Regions 


SOLUTION 


FROGRAM LEX72 


File LEX72.FTN 


Task. computes sum of rroducts using resident library 


routines. 
Tesk build instructions: 


LINK/MAF/OF TIONS LEX72sLB? 
Ortion? RESLIB=LIB/RO 


C Solution to Module 7» Lab Exercise 2 


CividJF4ForTs/Lik 


INTEGER AsBsCeltyMURESI»s MURES2? sGRTOT 
ASCII bhutes to -make rromreting code cleaner 


BYTE ASCA»sASCBrASCC ASCH 
DATA ASCALASCBRYASCC s ASCH S/S? 


TYFE 3 


FORMAT (% TASK WILL COMPUTE (AXB)+(CKE) ‘/ 


A‘’y Bl 9 /C% 9 ODS 


1 ’ ENTER NUMBERS IN DECIMAL. “%> 
FORMAT statements used rereatedly below? 


FORMAT (‘ENTER “Aly ’3 %) 
FORMAT (16) 

TYFE 15%ASCA ! 
ACCEFT 259A ! 
TYFE i5*sASCE ! 
ACCEFT 2595 ! 
CALL MULL (AyB»MURESI) ! 
TYPE 15%sASCC ! 
ACCEFT 259C ! 
TYFE 15°ASCh ! 
ACCEPT 2590 ! 
CALL MULL (CsttyMURES2 ) ! 


CALL AADDUCMURESL »MURES2»GRTOT) ! GRTOT : 


TYPE 35% AvB»yCrDyGRTOT 
FORMAT ¢(% (’sIGs’ kK ‘’xTbs’% 
CALL EXIT 

E-NIM 
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Fromet for 
and inreut A 
Fromet for 
and inreut & 
MURES1 = AXE 
Fromet for 
and inrut C 
Fromret for 
and ineut © 
MURES2 = Ch 


> + (% Tbe’ 


Dynamic Regions 
TEST/EXERCISE 


Referring to Exercise 1 of Module 7 (Static Regions), modify 
the tasks that reference the common so that they both map to 
the common dynamically using the memory management directives. 


Write a task that creates a dynamic region two blocks’ long, 
fills it with a character typed in at the terminal, and leaves 
it in existence on exit. Write a second task that modifies 
one value in the region, then displays all the values in the 
region at the terminal, and finally deletes the region. 


Modify SNDREF so that it sends the region by reference to a 
second receiver task, in addition to RCVREF. Write the second 
receiver task, which should modify values in the region and 
then display the values in the region at the terminal. 
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OONO OD to 


LO 


Dynamic Regions 


SOLUTION 


»+TITLE CLEX81B 
eIDENT 7/017 
*ENABL LC 


+ 


File LEX81B.MAC 
LEX71B modified to 
Frosgram to 


all values in the resion 


and exit. 


2Oetion? WNOWS=1 


Sr “Gr Cr “Sh Wr “> “EP SP Sr Wd “E> rm WP Br ‘arm “EP Sd 


Length in 


attach to the existing resion 
@virtual address window (marred om creation)» 


hy 1» 


Offset in resion 
resion 
Mar om. create with read and write seccess 


a 


5 Enable lower case 


use memory manesgement directives 


LEX71A» create 
decrement 


getach from the region 


Assemble and task-build instructions? 


“MACRO/LIST LES C1» 1LIPROGMACS/LIBRARYsdevi CufdILEX81B 
“LINK/MAF/OFPTION LEXSiByL BIC 1,1 IPROGSUBS/LIBRARY 


(32. word blocks) 


32, (32, 


7 
$2+ (32. 
0) 
3 


HOH OW OH 


word blocks) 


block 


'Oetion? <RETS 

*MCALL EXIT$S*»ROBEKS»WORRBKS*sATRGSC + Sustem 
*MCALL CRAWS»/ DTRGSS s DIRS sQIOWSS y macros 
*MCALIL TTRERR»y IOERR y Surrelied macros 

RIE? ROUBBKS 32.°LEX71AyLEX71A2<RS.WRTIRS. REDS 

3 tlefine resdion with? 

; Size = 32. (32. word blocks) 

3 Name = LEX71A 

’ Fartition = LEX71A 

; Attach with read and write seccess 

3 

WIN? CRAWS We sIFR for create address window 

WIE? WOBBKS$ 7932.2020232.92WS.MAP IWS. REDIWS.WRT> 

, Nefine window with? 

; AFR 

5 Size word blocks) 

; 

; 

; 

; 

IOSB?: + BLKW 2 

W =1024, 

DONE 3 *ASCII /LEX818B HAS MODIFIED 
*ASCII 7 IN LEX71AZ 

L.OONE =, ~TiONE 

START? ATRGSC ROE 
RCS ERR1 
MOV ROBtR.GIOyWoR+W, 
IR #WIN 
RCS -ERR2 
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s I/0 status 
; im resdion 
THE VALUES/ 3¢$ Tone 


y message 


> € of words 


Attach to 
Check for 


4 

y 

NRIDT ¢ Move resion 
y into WIR 

+ Create window 

§ Check for error 


region 
error 


tt 


Dynamic Regions. 


SOLUTION » 


MOV #14600009R2 § Set. base addr in resion 
MOV #Wy RS ¢ Get word count 
LOOF? DEC (R22) + + Tecrement value 
SOR RS» LOOF > Loor until done 
QIOWsS #10. WUE #5) #L> es FIOSEy 2 “ENONE » €L DONE » #402 
> Write done messase 
ECS ERR Sf + Check for dir error. 
TSTE IOSE § Check for I/0 error 
BLT ERR3I ¢ Branch on error 
OTRG$S #RIk § Ltetach from region 
BCS | ERR4 + Check for error 
EXITS | 
y Error handling code ; 
ERR1? DIRERR <ERROR ATTACHING TO REGION? 
ERR? $ DIRERR <ERROR CREATING WINDOW ANID MAF FING: 
-ERRSO$ OTRERR <ERROR WRITING DONE MESSAGE> 
ERR3I3 DOERR #TOSBsERROR. WRITING DONE MESSAGE: 
ERR 42 DIRERR <ERROR DETACHING FROM REGION: 
+ENTt START 
FROGRAM LEX81RB 
Cc ae 
C File LEX81B.FTN 
C 
CO LEXZ71BR modified to use memory management directives 
Frogram to attach resion LEX71A in rartition LEX71A 
create @ window and mar it to the resion uron creations 
decrement each value in the resion bye ls» and detach 
from it: 
Task-build with these ortions? 
VSECT=TATA2 1600003 20000 
WNDIIWS = 1. 
INTEGER: RURC8) »sWORCS) 
This common block will align with the address window 
COMMON /DATA/TOATAC1IO24) 
C ROE = Region definition block with the following 
C rrorerties? - 
C Size 32 €10) (€32.-word blocks) 
C Name LEX714A . 
Cc Fartition LEX71A 
C Frotection WOtnonersSY{RWEDs OWL RWED ys GRIRWED 
a Attach with read and write access 
C Initialize the ROB 


DATA RUB /O9 329 3RLEXs3R71A»3RLEX» 3R71A2 "Sy 
11700007 
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Dynamic Regions 


SOLUTION 
C WOB = Wincow definition block with the following rrorerties? 
C AFR 7 
C Size 32 (€10) (32,-word blocks) 
C Offset in resion O (32.-word blocks) 
C Length of window 32 (10) (32.-word blocks) 


C Mar om create with read and write sccess 
C Imittaslise the WHER | 
VATA WOR /"340090%329090%9 329 "203%0/ 


C Attach resion 
CALL ATRG CROB:sI0S) 
C Check for error om attach 
IF (105 .LT. 0) GOTO 100 
C Move resion id to WIth 
WOR(4)=RDOBC 1) 
C Create and mar window 
CALL CRAW (WihER,» TOS) 
C Check for error 
IF (10S .LT. 02 GOTO 200 
C Lecrement values 
nO SO K=i*s1024 © 
ITATACK) =IDATACKI~-1 
30 CONTINUE 
C Yetach from resion and delete it 
CALL DTRG ROR, TOS) 
C Check for error 
IF (I0S .LT. 0) GOTO 300 
C And Jume to exit 
WRITE (5%60) 


60 FORMAT (° LEX81B HAS MODIFIED THE VALUES IN 
1 THE COMMON LEX71A%>) 
GOTO Soo 
t 
C Error messages 
100 WRITE (S»101)> Tos 
101 FORMAT ¢¢’ ERROR ATTACHING TO REGION: EISW =’+I4) 
:; GOTO Soo 
200 WRITE (S201) 10S 
201 FORMAT (€¢’ ERROR IN CREATING WINTOW, [SW =%»I4) 
GOTO Soo 
3900 WRITE (S301) TDS 
SOL FORMAT ¢€’ ERROR DETACHING FROM REGION: [SW =’ 514) 
C 
SOO CALL EXIT 
ENT 
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CONRAD Whe 


ae 
¢ 


LEX71C 


ASCII 
and ex 


Assemin 


Sr “> E> MR Sh SP “WP EP SD Wo “CD ES Wh <> “Ed “E> “ED 


$ 


mn 


30:5 


“er “> “G> “er “a> “> em EF” So we sam ser ~er > “eo 
= 


LOSES’ 
ARG: 


RUFF 
FMT? 


START ¢ 


Frogram 


TITLE 
eo LVENT 
*ENABL 


Dynamic Regions 


SOLUTION 


LEX81C 
/O1/ 
LC 3 


File LEX81C.MAC 


Enable lower case 


modified to use memory management directives 


its 


to attach to am existing 
Virtual address window (marred on creation)» read 


date from the resions deta 


regions create 2 


ch from the resion 


le and task-build instructions? 


“MACRKO/LIST LEi C1» IFROGMACS/LIBRARYs devi CufdILEX81ic 


“LINK/MAF/OFPTION LEX81CyLBil1»1IFROGSUBS/LIBRARY 
“Ortion? WNOWS=1 
“Ortion? <RET> 


*MCALL 
+MCALL. 
*MCOALL 
ROUREBKS 
tefine 


CRAWS 
WOBEKS 


EXIT#S»ROUBBKS»WOBR 
CRAWS LITRGSS LIRR» 
QIRERR»s IOERR 3 
32+ e9lLEX7LA»LEX71A» 
region with? 
Size 

Name 
Fartition = 
Attach with read 2 


Hof 


WOE IPR for c 
79 S26 90204 S267 2WS. 


Tefine window with? 


+ BLIW 
+ BLRW 


+RLKE 
+ASCIZ 
+EVEN 
ATRG$C 
RCS 
MOV 


DIRS 


Size 

Offset in resion 
Length in region = 
Mar on create with 


HOH OW 


2 ; 
1 > 

; 
100. , 
S2ZB/ ; 

3 
RIE 5 
ERR1 ; 


RYB+R. GIltyWoOR+W. NR 


#WIN , 
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K$sATRGSC ¢ Sustem 
QTOWSS > MmMacras 
Surrlied macros 
RS.RED 


32. (32. word blocks) 


LEX71A 
LEX71A 


CCess 


reate address window 
MAF IWS,.REDI 


7 
32+ (32. word blocks) 
0 (32. word blocks) 
32. (32. word blocks) 
read access 


I/O status block 

Arsdument block for 
error code 

OQuteut buffer 
Format string 

Loor count 


Attach to resion 

Check for error 

It § Move resion If 
5 into WB 

Create window 
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Dynamic Regions 


SOLUTION 
RCS ERR2 + Check for error 
MOV #160000/R2 § Set base addr in resion 
MOV ¥#NoRS § Loor count 
LOOF ? MOV #BUFF » RO ¢ Set ur for $ELMSG6 
* MOV #FMT*R1I 
CALL. $E0MSG § Edit data 


DONE $ NTRG$S #ROKE 


a 


¥ 


QIOWSS #10.WVR*#5,7¢12¢ITOSBe es <#RUFF oe R1 y #402 
§ Write data 


letach from resion 
Check for error 


BCS ERR 3It ¢ Check for dir error 
TSTE IOSE § Check for I/O error 
BLT ERR3I > Branch an error 
SOR RS »yLOOF § Frint the line 

5 

3 


BCS ERR4 
EXIT#S 
Error handling code 


ERR 3. NIRERR <ERROR ATTACHING TO REGION? 

ERR2 $ DQNIRERR <ERROR CREATING WINDOW ANDI MAFF ING? 
ERRSD03 DIRERR <ERROR WRITING DATA> 

ERR3I3 IOERR #TOSB»<ERROR WRITING DATA> 

ERR 4 3 DIRERR <ERROR DETACHING FROM REGION? 


IYIOFGAAGAIAIAIAINI 


ta 


30 


OPC C2? £2 


eENT START 


PROGRAM LEX8iCc 
File LEX81C.FTN 
LEX71C modified to use memory management directives 


Frogram to attach resion LEX71A in eartition LEX71A 
create a window and mar it to the resion uron creations 
read data out of the resions and detach from it 


Task-build with these ortions? 
VSECT=DATA? 1600003 20000 
WNOWS=1 


INTEGER ROBR(8) »WORC8) 
This common block will agligm with the address window 
COMMON /DATA/TDATAC1LO24) 
ROB = Region definition block with the following 
FrOrerties? | 


Size 32 (10) (32.-word blocks) 

Name LEX71A 

Partition LEX71A 

Frotection WOtnonersSY SRWEDsOWSRWEDY GRE RWED 


Attach with read eccess 

Initialize the RDIR 
NATA ROB /0»32+s3RLEX*s3R71Ar3RLEXs 3R71Axr “000001 » 
1°170000/ 
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Dynamic Regions 


SOLUTION 
C WOR = Window definition block with the following rrorerties$ 
C AFR 7 
C Size 32 €10) (32.-word blocks) 
C; Offset in region O (32.-word blocks) 
C Length of window 32 (10) (32.-word blocks) 
C Mar on create with read access 
C Initialize the WOE 


LATA WB /"34001013220707 32% *20170/ 


C Attach resion 
CALL ATRG (ROB» TOS) 
C Check for error om attach 
IF (INS .LT. 03} GOTO 100 
C Move resion id to WIIK 
WOBRC4)=RIBCL> 
C Create and mar window 
CALL CRAW (WrBs TOS) 
C Check for error 
IF (IT0S .LT. 0) GOTO 200 
C Print contents of region 
00 50 J=1%102498 
WRITE (Sv11) CIDATACK) sK=Jy J+7) 
11 FORMAT ¢€% ‘’sI2+7I8) 
50 CONTINUE 
C Detach from resion and delete it 
CALL DTRG CRIB, INS) 
C Check for error 
IF (INS .LT. 0) GOTO 300 
C And ume to exit 
GOTO 300 


Error messages 


109 WRITE (S101) [0S 

101 FORMAT (° ERROR ATTACHING TO REGIONs [SW =’ 914) 
GOTO 300 

200 WRITE (S201) IDS 

201 FORMAT (% ERROR IN CREATING WINDOW, DSW =’,T4) 
GOTO Soo 

300 WRITE (S»e301) I0S 

501 FORMAT (° ERROR DETACHING FROM REGION, DSW =’,T4) 

C 

JOO CALL EXIT 
END 
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MONO CED GB Poe 


‘S> “S> “Rd “Sr “SP “Er er E> <> “SP Sr “Ed 


REG? 


DR? 


DES 


> So wr er wen > arp > ET wr Fe er ar ver ar “a> er er 
pe 
oo 


DET? 
TOSE? 
BUFF 3 
MIES 3 
LEN 
UNMES? 


LOINMES 
> Error 
FCRREF: 3 
FCRWER ? 
FOETER? 


File LEX82A. 


Frogram to cre 
creation), cre 
creationds: Fla 
the resionm and 


Task-huild ins 


Include 


»MCALL 
*MCALL 


CRRGS 
Tefine r 


ROBEKS 


CRAWS 
Tefine w 


WOREK $ 


UTRG$ 
« BLARW 
»BLKE 
*ASCIT 


Prec] 
poses 


eASCIT 
*ASCIT 
=, ~DTNMES 
format $s 
eASCIZ 
»ASCIZ 
+ASCIZ 


Dynamic Regions 


SOLUTION 


»TITLE LEX82A 

+ TQENT /01/ 

*ENABL LC _¢ Enable lower case 
MAC 


ate an named region (attached on 

ate a virtual address window (marred on 
ce ASCII data in to resions detach from 
@exity leaving the region in existence. 


tructions?: 
WNOWS=1 oftion 


EXIT#S »ROBBKS » WOBRRNS » CRRGS » CRAWS 
NTRG$ » DIRS »QTOWSS »QIOWSC 


ROE 7s0FER for create resion 

esion with? 

Size = 2 (32. word blocks) 
Name = MYREG 

Fartition = GEN 


WO?NonesSY$RWELDy 
OW? RWEDs GRIRWED 
[lo not mark for delete om last detach 


Attach with write and delete access 
S»yMYREG»yGENs<RS.NDOLIRS DELIRS.WRT'IRS.ATT= 170000 


Frotection 


WIE 3 DFR for create address window 
indow with? 

AFR = 7 

Size = 2 (32. word blocks) 


Offset in resion 0 (32. word blocks) 
Length in region = 2 (32. word blocks) 


Mar om create with write sccess 
Je2e9O902292WS. MAP IWS. WRT: 


ROE > DFR for detaching resion 
yd s I/O status block 

80, § Ineut/Outeut buffer 
eae ASCII CHARACTER? 7 

Pid i | 


<152/LEX82A HAS CREATED AND INITIAL IZED/ 
/ THE REGION/ 


tLrings 

7ERROR CREATING REGION. [SW = ZD./ 
7ERROR CREATING WINTOW. [OSW = ZD./ 
7ERROR DETACHING FROM REGION. USW = ZI./ 
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FATIDE$ 
FQTITE: 


FOQT2DE $ 
FOQI2TES 


LOOF 


y Error 


ERR Is 


ERR2 $ 


ERR SDI 


ERRS3TI 


ERR4D3 
ERRA4AT 3 


*ASCIT 
eASCIZ 
“ASCII 
eASCTZ 
*ASCIZ 
*ASCIZ 


»EVEN 


NIRS 
ECS 
MOV 


DIRS 
RCS 
MOV 
QIOWsS 


BCS 
TSTE 


BLT 
MOV 


MOY 
MOVE 
SOR 


QIOWSC 


BCS 
TSTE 
BLT 
IRS 
RCS 
EXITSS 
code 
MOV 


BR 
MOV 
BR 
MOV 
BR 
MOV 
MOV 
MOV 
BR 
MOV 
ER 
MOV 
MOV 


Dynamic Regions 
SOLUTION 


/QIRECTIVE ERROR ON REAL AFTER FROMFT/ 

7 QIO. SW = “0.7 

!1T/O ERROR ON READ AFTER FROMFT QIQ. ! 

/ CODE = 20.7 

/IRECTIVE ERROR ON WRITE QiO. DSW = “D./ 
'T/0 ERROR ON WRITE QIO. CODE = Z0.! 


#REG + Create resion 
ERR1 ¢ Check for error 
ROB+tK,.GIUysWOoOB+W.NRID § Move resion If 
§ into WOE 
#WIN § Create windaw 
ERR2 + Check for error 
#1460000°RS §¢ Set base address in resion 


#IO. RP Ry t5 28177 #1T OSH: yc dBRUFF yy #1» ep EMES eS ELEN: #4 S% 


y Fromet and read data 
ERRSIt s Check for directive error 
IOSE § Check for I/0 error 
ERRSI § Branch om I/0 error 
#128.*°RO ¢ Region size in butes 
#EUFF +» R4 5 R4 => cheracter 
(R4)°(RS)+ ¢ Move character to resion 
ROyLOOP ¢ Tecrement counter and loor 
> tmtil done 
IO.WVBe Seley» TOSBs: » <0NMESsLONMES » 40> 
§’ Write region created message 
ERR4I ¢§ Branch on dir error 
IOSKE ¢ Check for I/O error 
ERR4I > Branch om I/O error 
#0ET + Tetech from resion 
ERRS § Check for error 


#FCRRERsR1 ¢y Create resion error 
; messade 

SHOERR > Branch to common code 
#FCRWERsR1 § Create window message 
SHOERR * Branch to common code 
#FQTINEsR1 § QIO directive message 
SHOERR § Branch to common code 
IOSEB+sRO § Extend sign on status 
RO» $liSW 5 and move to ars block 
#FQI1IIEsR1 § QIO I/O error . 
SHOERR § Branch to common code 
#FRQIZUE rs R1 ¢ QIO write dir error 
SHOERR § Rranch to common code 
IOSK*sRO § Extend sign on status 
RO» $lisw § and move to ars block 
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Dynamic Regions 


SOLUTION 
MOV #FQI2IEyR1 ; 
ER SHOERR ; 
ERRS! MOV #F DETER? Ri ; 
SHOERR! MOV #RUFF yRO ; 
MOV FS0SW RZ ; 
CALL $ELMSG ; 
QIOWSS #IO-WUBy Se #1 yee» 
; 
EXIT$S ; 
-END = START 


IYOAOADIO IIIA AISI AIIEAIIHOKIOAAIAIRBAIOAIaAaAnananrain 


FROGRAM LEX82A 


File LEX82A.FTN 


LEX82A creates 3&8 named redion 
creates @ virtual address window (marred on 
ASCII cheracter inrut at TI: 
detaches from 
existence, 


Flaces ari 
im the resiony 


leaving the resion in 


Task-huild instructions? 


(attached on 


the resion 


QIO write err message 
Branch to common code 
Itetach resion message 
Set ur for $E0MSG 


Edit message 


“BUFF oR1 9 $40> 


iselay messede 
Exit 


creation)» 
creation)» 


and exitsys 


SLINK/MAFP/OFTIONS/CODES FPF LEX82AsLEBi C1» 1 IFOROTS— 


~2/LIBRARY 


Oetion? VSECT=LATA? 1600002 20000 


Ortion? WNOWS=1 
Ortion? <RETS 


ROR 
following rrorerties? 
Size 
' Name 
Fartition 
Frotection 


Ltio mot mark for 


Region Definition 


HoH 


delete on 


Block 


2 (32. 
MYREG 
GEN 


for restiom with the 


word blocks) 


WO? None ry SY? RWED 
OWS RWEDYGRSRWED 


last detach 


Attach with write and delete access 


WOR = Window Lefinition Block for window with the 


following rrorerties? 
AFR 
Size 


Offset in resion 
region 
create with 


Lensth in 
Mar on 


if 


# HOO 


2 (32. 
0 (32. 


2 (32, 


word blocks) 


word blocks) 
word blocks) 


Write access 
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at a11 locations 


Dynamic Regions 


SOLUTION 


INTEGER ROBCS8) »WORC8) 


C Array for dunamic resiony variable for ASCII character 


BYTE ARRAY (128) »CHAR 
COMMON /DATA/ ARRAY 


C 
C Initialize the RIB 


DATA RIR/O» 29 3RMYRe3REG » 3RGEN? 3R » "000152 "1700007 


C Initialize the WIIB 
DATA WOB/ "34009092 9090929 "20290/ 
C Call routine to create and attach resion 
CALL CRRGCRIB, TS) 
C Check for error 
IFCINS.LT.OGOTO 800 
C Creste address window and mar to region 
WOR(4)=R0BR(1) 
CALL CRAWCWIBs TNS) 
C Check for error 
IFCIUS.LT.OGOTO 810 
WRITE ¢3%50) 
C Get ASCII cheracter 7 


50 FORMAT (’°$ENTER ASCII CHARACTER?  ’> 
READ (560) CHAR 

60 FORMAT (AL) 

C Flace data in resion 


00 80 J=1%128 
ARRAY (J) =CHAR 
80 CONTINUE 
C Yetach from resion 
CALL DTRGCROUBsy TOS) 
C Check for error 
IFCIOS.LT.OdGOTO 820 
C Write messase 


TYFE X»’LEX82A HAS CREATED AND INITIALIZED THE 


LREGION’ 
C Branch to common exit 
GOTO 1000 
C Write create error message 
800 WRITE (S»805) 10S 
805 FORMAT(C’ ERROR IN CREATING REGION: [SW 
C Go to common exit 
GO TO 1000 
C Write attach error message 
810 WRITE (S815) 10S 
815 FORMAT(C’ ERROR IN CREATING WINDOW ANT 
10SW = ’»T4) 
GOTO 1000 
C Write detach error message 
820 WRITE CS*s825 2700S 
825 FORMAT(C’ ERROR IN DETACHING FROM REGION? 
1°I4) 


C Common exit 
1000 CALL EXIT 
END 


~=1¢4 


é 


iD Whe 


z 
ad 


ee 


Noe Boe 


“E> 'C> “Sr Wr “Er “SP Ce “Sh EP “EP “Er “Ch “E> “Br “CP? “CP > “QD 


IOSE? *BLKW 2 
RSTZ =128. 
START? ATRGSC ROB 


im 
x 
oe 


me 


ser Sy Gh Ey Od a> “a> “e> ET EL ep a> ~er a> ver eo a> > TT 


Dynamic Regions 


SOLUTION 


+TITLE LEX82R 
+IQENT /01/ 
*+ENABL LC ’ Enable lower case 


+ 


File LEX828,MAC 


Frogrem to attach to an existing resions create 2 
virtual address window (marred on creation)» modify 
the first bute of the resions read ASCIT data from the 
rediony detach from the region and mark it for delete,» 
and finally exit. The region will be deleted on last 
detach. 


Assemble and task-build instructions? 


=MACRO/LIST LRIC1Ls LIFROGMACS/LIBRARY edevilCufdd—- 
~SLEXS2K 
SLINK/MAFP/OFP TION LEX82ByLBi C1» LIFROGSUBRS/LIBRARY 
-Ortion? WNEWS=1 

SOretion? <RETS 


*MCALL EXIT#$S eR ODRBRSeWORBRSsATRGHC § Sustem 

*+NCALL CRAWS se DTRG$S » COIR» QTOWSS FF macros 

*MCALL JDOTRERR» TOERR y Surrelied macros 

ROBBKS OsMYREG?sGENs<RS.WRT IRS REQIRS .MOLIRS. DELS 

Nefine region with? 
Size 0 (32. word blocks? 

returned after attach 


i 


Name = MYREG 
Fartitioan = GEN 


Mark for delete on last detach 
Attach with reads write and delete access 


N? CRAW $ WOE I0FE for create address window 

K3 WOBBKS 7x 20090902022 WS MAP IWS REDIWS. WRT? 

Lefine window with? 
AFF = 7 
Size = 200 (32. word blocks) 
Offset in resion 0 (32. word blocks)? 
Length in resion 0 (32. word blocks) 

: returned when marred 

Mar on create with read and write access 


ii i 


I/0 status block 

Region size in butes 

Attach to resion 

RCS ERR I Check for error 

MOV ROBtR GIUsWOBtW.NREID § Move region If 
> into WOR 

DIRS #WIN § Create window 


> Sh “Sr WD 
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INWOOD CED Gite 


Pe OS 


= 
rh 


m 
> Ww 


Dynamic Regions 


SOLUTION 


RCS ERR2 ¢ Check for error 
MOV #160000 sRS ¢ Set base addr in resion 
MOVE #°Z* (RS) * Flace Z in 18t bute 
MOV #RSTZ*R4 + Size of resion in butes 
MOV #44. 9R3 ¢ Chars rer line 
L.OOF ? QIOWSS #10.WVR so #5 81> s€ITOSKs eS RSe R32 #402: 
’ Write data 
RCS ERRSIt ¢ Check for dir error 
TSTE IOSE § Check for I/0 error 
BLT ERRSI § Branch on error 
SUE R39R4 y Compute chars left 
BLE NONE * Branch if done 
ALT R39RS § Point to next char 
CMF R3sR4 § Check. for «= 64. chars 
§ left to rrint 
BLE LOOF $$ > Or =e Print next line 
MOV R49R3 yony Print only that many 
> chars 
BR LOOF § Frint the line 
NONE 3 LTRG$S #ROE > DTetach from resion 
“BCS ERR4 § Check for error 
EXIT$S 


« 
? 


Error handling code 


ERR13 DIRERR <ERROR ATTACHING TO REGION? 

ERR2 ¢ DQIRERR <ERROR CREATING WINDOW AND MAPPING? 
ERRSO: FIRERR =ERROR WRITING DATA> 

ERR3I: IOERR #IO0SB»s<ERROR WRITING DATA> 

ERR43 QIRERR <ERROR DETACHING FROM REGION? 


ENT START 


FROGRAM LEX82R 
File LEX82B.F TN 


FORTAN Frogram to attach region MYREG in rartition GEN 
(which was created by LEX82A),» create a window and mar 
it to the resion uron creations elace @ Z in the first 
byuter then read data out of the resions and detach 
from ity deleting it in the rrocess,. 


Task-build with these ortions$ 


VSECT=TATA? 1600002 20000 
WNIIWS = 1. 


166 


OaOOIIMIOAaAAA4 


Dynamic Regions 


SOLUTION 


INTEGER RIBCB) »WORC8) 
BYTE IDATAC128) 


This common block will sgligm with the address window 

COMMON /DATA/TIDATA 
ROB = Region definition block with the followings 
Frorertiles? 

Size 0 (32.-word blocks) 

filled in when attached 

Name MYREG 

Fartition GEN - 

Frotectian WOtnonersSYIRWEDs OWS RWEDyGRIRWED 


Mark for delete on last detach 

Attach with deletes write and read access 
Initielize the RIE 

DATA RUB /OvOs3RMYR:3REG » 3RGENy 3R "000213 

1°170000/7 


G 
CO WOR = Window definition block with the followings 
C Frorerties? 
C AFK ¥ 
ie Size 20008) (32.-word blocks) 
C Offset im resion O (32.-word blocks) 
Cc Length of window O (32.-word blocks) 
C filled in when marred 
C Mar on create with read access 
C Initialize the WIE 
DATA WOR /"*340070% "2007090908 "20307. 
C 
C Attach resion 
CALL ATRG (ROB, IDS) 
C Check for error om attach 
IF (InS LT. 0) GOTO 100 
C Move resion id to WIE 
WhEC4)=RDBRC1) 
C Create and mar window 
CALL CRAW (WOR, TOS) 
C Check for error 
IF (10S .LT. 0) GOTO 200 
C Flace ASCII Z in first byte 
ITATACI = °2Z% 
C Frint contents of resion 
10 WRITE (Seit)> IDATA 
11 FORMAT ¢/% ‘»64A1) 
C Yetach from region and delete it 
CALL DTRG (ROByTNS) 
C Check for error 
IF ¢€10S .LT. 0) GOTO 300 
GC And ume to exit 


GOTO S00 
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c 


Dynamic Regions 


~SOLUTION 


C Error messages 


1006 
101 


200 
201 


WRITE (32101) TUS 

FORMAT (% ERROR ATTACHING TO REGIONs [ISW =’ 914) 
GOTO SOO 

WRITE (S201) 10S 

FORMAT (€° ERROR IN CREATING WINDTOWs [SW =’ 914) 
GOTO S00 

WRITE (S301) Ths 

FORMAT (° ERROR DETACHING FROM REGION» [ISW =’ »I4) 


CALL EXIT 
ENIt 
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Dynamic Regions 


SOLUTION 


*TITLE SNOREF 
*IDENT /01/7 


*-ENABL LC § Enable lower case 
+ este? 
File LEX83A.MAC So EX 
Modified to send to a 2nd receiver RCVRF2 in $3sEX 
addition to RCVREF 99 EX 


LEX83A 
fills 
resion 
the re 
then Ff 
LIV me 
attach 


Assemb 


; 

, 

; 

3 

¢* Instal 
¢ LEX83B 
y then r 
; cove 

+ Lefine 
; 

$ 

i 

; 

is 

; 

; 

RFERO 
RSTAT 
ROB? 


creates @ 64-word (2 block) unnamed region and 
it with ASCII characters. It then sends the 
to RCVREF s and then waits for RCVREF to receive 


Sion. CThis is signalled by event flas #1.> Tt 


Tints & message and exits. Since the area is 
dy it is sutomatically deleted when the last 
ad task exits. 


le and task-build instructions? . 


>MACRO/LIST LE¢f 1s LIFROGMACS/LIBRARY ydevilufdl—$3EX 
~SLEX83A 
SLINK/MAP/OFP TION LEX83AxL BILL»: LIPROGSUBS/L TBRARY 
Oetion? WNIWS=1 


1 and run instructions! RCVREF must be installed. 
must be installed as RCVRF2. Rum LEX83A first, 
ur ROVREF and RCOVRF2 Ceither one first) 


eMCALL QTOWSC ,QTOWSS eRQAQSTEC § System macros 
*MCALL WTSESC sEXIT#S sROUBBKS» WORBKS 

*MCALL CRRGOSSsCRAWSS » SREF $0 

*MCALL TTRERR * Surrelied macro 
eNLIST BEX § SUFFRESS IATA 


resion with? . 
Size = 2 32-WORT BLOCKS 
Name = mone 
Fartition z= GEN 


WOtnonersGRIRWED 
OWS RWEDySYt none 


Frotection 
Attach on create 
Read and write access desired on attach 
= 170017 

= RS.ATTIRS REDIRS.WRT 


ROBBERS 2» »GENesRSTAT» REPRO 
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“S> Srp “> Wh “EP “> WD “> 


WSTAT 
WINE? 
’ 

MES 1% 


LMESI 


MES2 3 


LMEG2 = 


START $ 


FR 
Size 
Offset i 
Lensth t 


Mar onc 
= WS.MAF 


WOREKS 


“ASCII 
sASCIT 
=y-MES1 
“ASCII 
*ASCIT 

o = MES2 
LIST 

+E VEN 

+E NARL. 


CRRGSS 


BCS 
MOV 


CRAWSS 
RCS 
MOV 


Dynamic Regions 


SOLUTION 


Tefine window with? 


= 7 

= 2 32-word blocks 
nm region = O 32-word blocks 
QO mar = QO 32-word blocks (defaults 


to smaller of resion 

size and window length) 
reate with read and write access 
'WS.WRT 


79290909 »WSTAT 


/ LEX83A HAS CREATED THE REGION ANI HAS/ 
/ SENT IT TO RCVREF ANID RCVRF2./ §55EX 


/ RCOVREF ANT RCOVRF2 HAVE RECEIVED IT.73 EX 
7 LEX83A IS NOW EXITING./ 99 EX 
REX § Show binary extensions 
LSE ¢ Enable local symbol 

§ blocks 
#RTE > Create and attach to 

5 resion 
14 * KRranch om dir error 


ROR+R.GINsWOB+W.NRID ¢ Cory resion Il 

y into WIE 
#W05 $s Create and mar window 
2S > Branch om dir error 
WORt+W.NEBAS » RO 3 bese V.A. of resian 


5 Fill region with all M’s 


2O8S 


+ Send the region to RCVREF. EF 
3 


ROVREF 


MOV 


recieve 
SREF SC 


BCS 
SREF $C 


BCS 
QLIOWSC 


RCS 
WISESC 


RCS 
WISE$C 


RCS 


#64.9R3 > count of words to move 
#°MMs CROD+ § Move in an ASCII M 

R39 206 § Loor through resian 

1 will he set when 

6 it 


RCVEREF » WOE» 1 y Send by reference to 
¢ RCVREF 
3 * Branch on dir error 
RCVRF 2 sW0By 3 § Send by reference #F¢EX 
+ to RCVRF2 ¥¥EX 
7% § Branch on dir errors sEX 
E 


SivLMES1*40> ¢ Llisrelay 
3 messase 


IO.WVB Sy 2a 99 9M 


4% y Branch on dir error 

1 $ Wait for RCVREF to set 
+ the resion 

ot ¢ Branch on dir error 

3 § Wait for RCVRF2 to #FEX 
+ set the resion ¥9EX 

8 ¢§ Branch on dir errorssEXx 
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99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
199 
Lio 
Lil 


_ 
as 
oe] 


WOnN BUS Whe 


10 


Dynamic Regions 


SOLUTION 


QIOWSC TO.WVReySe2e rye MESS yLMES2s40> » DTlisrelay 
j MESsadte 


ECS &4 § Branch om dir error 
EXITS y Exit 

+ Error code 

L$3 NIRERR <ERROR ON CREATE OR ATTACH REGION:> 

2s TIRERR <ERROR ON CREATE OR MAF WINDOW? 

3H 3 QIRERR <ERROR ON SEND) BY REFERENCE? | 

AG? QIRERR <ERROR ON 1ST WRITE> 

S$? QIRERR <ERROR ON WAIT FOR: 

463 QIRERR <ERROR ON ONT WRITES 

PF HE NIRERR <ERROR ON 2NDT SEND BY REFERENCE? 5 5EX 

She DIRERR <ERROR ON 2NIt WAIT FOR? 99 EX 


NOAOAONAOGAOAAGANMAOOAAIOAAArWGNANaAnanaraanrnraannaaaranna 


s END! START 


FROGRAM SNIREF 
File LEX83A.FTN 


Modified to send the resion by reference to RCVRF2 !'EX 


im addition to RCVREF PIEX 


This Frodgram creates 3 64-word unnamed restion and 
fills it with ASCII characters. It then sends it by 
reference to task RCVREF:, and waits for RCVREF to 
receive the redion.(This is signalled by event flags 
#1.) SNODREF then frints @e messase and exits. Since 
the area is unnameds it is automatically deleted when 
the last attached task exits. 


Task-build instructions? 


SLINK/MAF/CODESFFP/OF TIONS LEX83ArsLB¢C1lelLIFO-! !EX 
~>ROTS/LIBRARY PlEX 
Ortion? WNOWS=1 

Oetion? VSECT=DATA? 1600003 200 

Ortion? <RET= 


Install and run instructions? RCVREF must he installed. 
LEX83B must be installed under the name RCVRF2,. rIEX 
Rum LEX83A firsts then rum RCVREF amd RCVRF2 Cin !!EX 
either order) 


ROB = Resion definition block with the following 
erorerties’ 


Size 2 3S2-word blocks 

Name none 

Partition GEN 

Frotection WOtnonersSYSRWEDsOW2ZRWED ys 


GRinone 
Attach on creation 
Read and write access desired on attach 
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C This 


‘Dynamic Regions 


SOLUTION 


Whk = Window definition block with the following 
 FProrerties? 
AFR 7 
Size 2 32-word blocks 
Offset in resion O 32-word blocks 
Length of resion 2 32-word blocks 
Mar on create with write access 


INTEGER RIIBRC8) »WORC8) sROVC2) »ROV2¢62) Plex 
common Dblock will agligm with the address window 
COMMON /DUATA/IDATAC64) 


CO Initialize the RIB 


TATA ROBO "29009 3RGEN? 3R 9 "43%¥"170017/ 


C Initialize the WDE 


C Name 


C Code 


C-Fall 


10 


C Send- 


C when 


C Send- 


m 


flas 


TATA WBS "340097109 "290709 "Bye *202%0/ 


of receiver task 

TATA RCV/3RRCVs SRREFZ 

QATA RCOV2/3RRCVs SRRF2/ IIEX 
CALL. CRRGC(RDIBs Its) ! Create resion 

‘IF CIuS «LT. OF GOTO 100 ! Check for error 

WBC 4)=ROBRC 1) 1 Move resion id to WDB 
CALL CRAWCWDIRs TS) I Create window 


IF (10S .LT. 0} GOTO 200 ! Check for error 
region with date 

10 10 T1464 

IDATACT)D = 7 MM’ 


‘hyu-reference to receiver tasks set event flas i 


received 
CALL SREFCRCOVsl»y WOR, y TOS) 
IF (r1NS LT. 0) GOTO 400 ! Check for error 


-hyu-peferemce to 2nd receivers RCVRF2s use event! EX 


2 1iEX 
CALL SREFCROV2»s29W0By » TDS) t1EX 
IF (Ins .LT. 0) GOTO 450 ! Check for error PlEX 
TYFE *»’ LEX83A HAS CREATED THE REGION ANTI HAS 
1 SENT IT TO RCVREF ANDI RCVRF2.’ ! Diselayw !!EX 

! message !!IEX 
CALL WAITFR(1sTOS) i Now wait for recertion 
IF (10S .LT. 0) GOTO $00 ! Check for error 


CALL WAITFR( 2910S ' Wait for RCVRF2 to !IEX 


: ! receive PlEX 
IF (I0S .LT. 0) GOTO S50 ! Check for error PlEX 
TYFE Xv’ RCVREF ANID RCVRF2 HAVE RECEIVED IT. 
1 LEX83A IS NOW EXITING.’ ! Write message PiEX 
GOTO 4600 ! And do exit 
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pars 
CON GWA CID Whe 


pe et 
Poe 


ae 
> & 


1S 


aa 
“Eos 


Lé 


.s) 


YR: 


ise) 
m O 


is 


2 


*> 


t. 
t 


“a> “E> SP SP “Gr Sp SS Sp “Sh SP “S> SP <P? 


Dynamic Regions 


SOLUTION 


C Error handlins code 


100 
110 


200 
210 


400 
410 


450 
440 


300 
o10 


aw 0) 
360 
C 

600 


“Sr “> @> Ge “TD SD 


WRITE (S110)I0S 

FORMAT ¢(° ERROR CREATING REGIONs DSW 
GOTO 600 

WRITE (S»210)T0S 

FORMAT (€% ERROR CREATING WINDOWs [SW = ’,»T4) 

GOTO 600 

WRITE €S»410)T0S 

FORMAT ¢€’ ERROR IN SENDI-BY-REFERENCEy DSW = ’»14) 
GOTO 600 

WRITE (S»460)T0S 

FORMAT (¢’ ERROR IN 2NI) SEND-BY-REFERENCE? DSW . 
1 = “y»T4) 1 lEX 

GOTO 600 PlEX 

WRITE (S510) I0S 

FORMAT ¢€% ERROR ON WAIT,» DSW = ‘*TI4) 


“yI4) 


GOTO 600 PIEX 
WRITE (S560) IDS PIEX 
FORMAT (¢’ ERROR ON 2ND WATT, DSW = ’»T4) bIEX 
CALL EXIT 

END 


»sTITLE LEX838 
eITENT /01/ 
»*~ENABL LC y Enable lower case 


File LEX83B.MAC 


Second reciever for SNIIREF (modifed to LEX83A). 
Frogram to receive-hy-reference (marred on creation)» 
modify the first data bute in the resiory 

read ASCII data from the resiony detach from the 
resion and exit. The resion will he deleted on last 
detach. 


The first word in the resion contains the count of the 
number of butes of data im the resion. 


Assemble and task build instructions? 


“MACRO/LIST LB? CLs LIFROGMACS/LIBRARY sdevi Cufdd 
~SLEXS3E 


LINK/MAP/OPTIONS LEX83ByL Bi C1y LIPROGSUBS/LIBRARY 


ortion? WNOWS=1 


Li3 


c> ‘> 


“> “> “o> 


bent ED Fd ce ET es a> er er > er er om ~am 


wea 


“Sr 


a 
? 


Es RREF WHE 


START? TTRS HW TN 


Dynamic Regions 


SOLUTION 


Install and run instructions: RCVREF must be installed. 
LEX838 must be installed as RCVRF2. Run LEX83A first 
and then rum RCVREF amd RCOVRF2? Cin either order). 


»MCALL EXIT¢GeoWNBBKSesRREFS §¢ External system 
*MCALL QTOWSS » CRAWS eo DIRS $ Macros 
*MCALL TTRERR» TOERR > External surerlied 
y macros 
Nefine window withs 
AF Fe z= 7 
Size = 20008) (32. word blocks)? 
These are filled in om receive as set by sender? 
Offset in resion = 0 (32. word blocks) 
Length im region = 0 (32. word hlocks) 
reget after marrins 
ACCESS a @) 
Note’: Must mar serarately (Cor as rart of receive) 


TR WOBEKS Zee 


Set ur DPB for RREFS 
Set ure DPR for CRAWS 
I/0 status block. 


CRAWS WK 
BS + BLRW a 


Wr “C> “Sr 


§ Create virtual address 
§ Window 
BCS ERR ’ Branch on error 
RIS TWS.MAFP YWIBH+WLNSTS ¢ Set WIE to mar ori 
y Teceive 
Receive hu reference 
and mar 
Branch om error 
Set base address in 
region 
Size of resdion to RS 
Convert blocks to betes 
Modify first data hute 


DIRG REC 


BCS ERR 2 
MOV #1600009RS 


MOV WhEB+W.NLENs RS 
MUL. #64. 9RS 
MOV F/O» CRG) 


> “> “C> “> “> K> > Gd 


QIOWSS #LOWVR es #5 yo tls ce #TOSKs et RSe RS ye #40 FWrite 
y data 
RCS ERRS + Branch on directive 
> error 
TSTE IOSB r) 
- BLT ERR4 3 
EXIT#S 
Error code 


Check for I/0 error 
Rranch on error 


ERR Lf QIRERR <ERROR CREATING VIRTUAL ADNRESS WINDOW? 
ERR 3 TIIRERR <ERROR ON RECEIVE AND MAF 

ERR 3 QIRERR. <ERROR ON WRITE QTO> 

ERR 4 3 IOERKR #IOSBs ERROR ON WRITE Q1O0> 


«ENT START 
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C 


10 


C 


Dynamic Regions 


SOLUTION 


FROGRAM LEX838B 
File LEX83B.FTN 


LEX83B receives by reference a redion from the task. 
LEX8S3A. It mars to the resions modifies the first 
buter, Frints out the contentsys and exits. The resion 
is deleted on last detach, 


Taskh~-build instructions? Include these ortions 
WNOWS=1 
VSECT=DIATA? 1600003 20000 


Install and non, ane nuCttones LEX83B must be installed. 
as RCVRF2. RCVREF must be installed. Rum LEXS83A firsts 
then run LEX83B8 and RCUVUREF Cin either order). 


WOR = Window definition block with? 
AFR 7 
Size 200(8) 32-word blocks 
Allow for full APR 
Offset in region O 32-word blocks 
Length of region O 32-word blocks (to be filled 
in om receive) 
Read and write access 
INTEGER WOBCS) 
VATA WE/ "3400209 "290909 "Or "3¥0/ 
BYTE TtATACL 28) 
This common block will agligm with the address window 
COMMON /DATA/IIATA 


Create address window-~-do mot mar at this time 
CALL CRAWCWIR, IS) 
Check for error on create 
IF (10S .LT. 0) GOTO 200 
Now set WOR status for marrind--will be done by 
receive-by-reference 
WORC7)=WOBRC7)4+"°200 
Receive date and mar 
CALL RREF (WOR: » TOS) 
Check for error 
IF (10S .LT. 0) GOTO 100 
Modify: first value 
TATAC1L IRR? 
Calculate number of bytes of data ~ length im blocks 
returned at WHERC6) 
NCHAR = 64xW0ER(6) 
WRITE(S*:10) (QATACT) »I=1»NCHAR) 
FORMAT (7% %»64A1) 
Go exit 
GOTO 300 
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ID 


Dynamic Regions 


SOLUTION 


Error messages 
WRITE (S110) 7T0S 
ERROR ON RECEIVE-BY~REFERENCEs NISW =%» 14) 


FORMAT ¢ 7 
GOTO 300 


WRITE (S210) 70S 


FORMAT ¢ 7 
CALL EXIT 
END 


ERROR CREATING WINDOW, 
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File 1/O 
TEST/EXERCISE 


Next to each activity, write O for open, I for I/O operation, 
or C for close, to identify which step of file I/O is 
involved. . 

a. Records are read from the file. 

b. Access rights to the file are checked. 

c. Existing file is located on disk. 

d. Internal buffers are placed in a pool for re-use. 

e. Records are written to a file. 


Describe three functions performed by the Files-11l ancillary 
control processor (FI11ACP) when aé_e task creates a new file 
containing seven blocks. 
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File 1/O 
TEST /EXERCISE 


For each of the following, tell whether FCS only, RMS only, or 
both can be used for file I/O. If both can be used, identify 
which you would prefer and why. 


a. A teacher has a file with one record for each student. 
The students are identified by student number (1 - 100). 
Each record contains the student's test scores (space is 
reserved for 1@ scores) and his average. The instructor 
adds new test scores and updates the averages as he gives 
tests. In addition, he wants to access any student's test 
Scores and test average uSing the student number. 
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b. 


Cc. 


File 1/O 


TEST /EXERCISE 


A company has a file of customer’ records. Each record 
contains the company name, the address, the contact 
person, and the equipment bought. At different times, the 
records are accessed using company name, city, or contact. 
person. 


A company uses COBOL for itsS applications. It has a 
payroll file which is processed in order every two weeks. 
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File 1/O 
SOLUTION 


Next to each activity, write O for open, I for I/O operation, 
or C for close, to identify which step of file I/O is 
involved. 

I a. Records are read from the file. 

O b. Access rights to the file are checked. 

O c. Existing file is located on disk. 

C d. Internal buffers are placed in a pool for re-use. 
Ie. Records are written to a file. 

Describe three functions performed by the Files-1l ancillary 
control processor (FI1lACP) when ae task creates a new file 


containing seven blocks. 


Any three of the following: 


Allocate a file neeaee 
Initialize the file header 

Set up file retrieval pointers 
Create a directory entry 
Allocate blocks to the file 


Connect a task's LUN to the file 
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File 1/0 
SOLUTION 


For each of the following, tell whether FCS only, RMS only, or 
both can be used for file I/O. If both can be used, identify 
which you would prefer and why. 


a. A teacher has a file with one record for each student. 
The students are identified by student number (1 - 19@). 
Each record contains the student's test scores (space is 
reserved for 1@ scores) and his average. The instructor 
adds new test scores and updates the averages as he gives 
tests. In addition, he wants to access any Student's test 
scores and test average uSing the student number. 


Either FCS or RMS may be preferred. 
FCS 
e Easier to program (in MACRO-11) 


e Less overhead (although very close if using a relative 
file rather than an indexed file) 


e File must have fixed length records with record 
numbers corresponding to student numbers 


RMS 
e If a relative file is used, can automatically skip 
over deleted records (if student leaves or drops the 
course) 
e In FORTRAN, no harder to program 
e@ Not much overhead for a relative file 
e File must be ae relative file with fixed length 


records, with cell numbers corresponding to student 
numbers 
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b. 


File 1/O 


SOLUTION 


A company has a file of customer’ records. Each record 
contains the company name, the address, the contact 
person, and the equipment bought. At different times, the 
records are accessed uSing company name, city, or contact 
person. 


Best answer is RMS only since an indexed file with 
multiple keys is needed for fastest access. FCS can be 
used, but access by key value is impossible. You would 
have to step through the file, checking all records, to 
locate the one you want. 


A company uses COBOL for its applications. It has a 
payroll file which is processed in order every two weeks. 


RMS only; COBOL is supported under RMS, but not’ under 
FCS. 
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File Control Services 
TEST /EXERCISE 


Modify CRESEQ so that each record in the file contains’ the 
text input from the terminal preceded by "AAAA". 


Write a task that appends records to a file you have created 
(using one of the FCS example programs or the editor). 


In MACRO-11, modify the task CREFXA so that input from the 
terminal uses FCS routines instead of QIO directives. 


Write a task that requests input from a terminal of the form: 
n, text 


Use the input to update the nth record of FIXED.ASC, which has 


fixed length records. Use random access and do not truncate 
the file. : 


In MACRO-11, modify the task BLOCK1 or BLOCK2 so that it 
writes or displays two virtual blocks at a time. 


(Optional) In MACRO-11l, modify the task CSI so that’ the 
subroutines DISPLY and DELETE actually display and delete the 
File. Caution: DELETS delete the highest version of a file 
if no version number is specified. (See Chapter 6 of the 


IAS/RSX I/O Operations Reference Manual for information about 


the routines GCML and CSI.) 
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SON DUDS Whore 


“> ad “Sd “D> “Ch “SP EP SP E> “EP > > Sh “E> ED 


« 
¥ 


FNAME? NMBLK&® VARTYASC 


a 
’ 


BUFF ¢ *ASCIT /AAAA/ 
INBRUFS «BLKE 80. 
LOST: + BLAW 2 ‘ 


+ 


FOR? FOBOES 


File Control Services 


SOLUTION 


*TITLE CRESEQ- 
eINENT /0O1/ 
*ENABRL LC 


File LEX101.MAC 
Modified to rreced each record with AAAA 
CRESEQ creates a@ file VART.ASC. It reads 
records from TIti,y and relaces them in the file. 
A “Z terminates ineut and closes the file. 
Assemble and task-build instructions! 
MACRO/LIST LB? CislIPROGMACS/LIBRARY ycdevi Cutfdd- 


~CRESEQ 
LINK/MAF CRESEQsLEt Cis 1IPROGSUBS/LIBRARY 


*MCALL EXST$CvQIOWSCyQIOWS DIRS ¢ Sustem macros 
*MCALL FSRSZ$*FOBOFS»FOATSArFURCSAysFLOPGA ¢ 
*MCALL NMBELKGS OP ENSWeFUTS$*CLOSES ¢ 

*MCALL DTRERReYIOERRsFCSERR ¢ Surrelied macros 


FSRSZ$ 1 * 1 file for record I/0 


llefine file descrirtor block for VART.ASC 


Allocate the FOR 
FOAT#A k.VARYFO.CR Variable length recordsy 
Listing ~- imelied 
carriage returns line 
feed 


Seauential access and 
record I/O by 
default» BUFF is 
user record buffer 

Use LUN ly file srec 
at FNAME 

"“VART.ASC" 


FORCSA » BUFF 


FOUOFSA ty» » FNAME 


a> “Mh Sp SP Kr Gd > “A> ‘Ad “Ch WP “Wd 


Local Late 
USER RECORD. BUFFER 


“S> M> > 


I/O STATUS BLOCK 


*LIST REX 
+EVEN 


*ENABL, LSB 
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File Control Services 


SOLUTION 


START? 


5 Oren file for writes call ERRI if oren fails 
ORPENSW #F0By 9 yx» xERRI 
> Get record from terminals rut to file. 


1043 QIOWSC TO.RVBeSeivyTOSTys<INBUF y 80.2 ¢  §9EX 
RCS ERR202 y Branch om directive 
3 error 
TSTR IOST + Check for I/O error | 
BLT ERR2I y Branch om I/0 error 
MOV IOST+2¢R1 * Number of bytes inrut 
Alii #4°R1 § Add 4 for 4 A’s 99 EX 
FUT $F DR» eo RI y Fut record to file 
RCS “ERR 
BR 10% > GET NEXT RECORT 


EXIT? CLOSES #FIBsERR4 
EXST$C EX#SUC 


Close file 
EXIT STATUS IS 1 


“a> “Re 


+SBTTL ERROR HANIILER 
+ Error code ~- Close file if necessary, disrlay error 
y messade and exit 
ERR1? FCSERR #F0Bs<ERROR OPENING FILE> 
ERR2Z0O3 OIRERR <“TRECTIVE ERROR ON REAL 
ERR2I2 CMPR #IE.EQF sTIOST i Is it “Z? 
BEQ EXIT > If eaual,y close file 
> and exit 
IOERR #10ST»<ERROR ON REALS ¢ Disrelay error 
> message and exit 
ERR3 3 CLOSES #FTIRB*ERR4 + Close file 
FCSERR #F0Bs<ERROR WRITING RECORD: 
ERR43 FCSERR #FURy<ERROR CLOSING FILE> 
+ENT START 
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File Control Services 


SOLUTION 


FROGRAM CRESEQ '!CREATE FILE SEQUENTIALLY 


INTEGER LEN 


C 
C FILE LEX101.FTN 
Cc 
C Modified to rrecede each record with AAAA IIEX 
C 
C This task creates a file of VARI.ASC of 
C variable-length records usins seauential record eccess. 
C The records are inreut from the terminal and coried to 
C the file. The rrocess stors when the orerator tyres 
C CTRL/Z at the terminal. 
C ; 
BYTE BUFF (84) » INBUF C80) IblEX 
EQUIVALENCE (BUFF (S)»INBUF CL)? IieExX 


ATA BUFF C1) »BUFF C2) » BUFF CS) »sBUFF C4) 


1 SAS Al AS ACS 


OPEN FILE 


Yefault access is seauential 
Yefault is formatted I/0 for seauential files 


OF EN CUNT T=1 »NAME=“VART. ASC’ » TYFE=’NEW“ » 
1 CARRIAGECONTROL= LIST’ > 
TYFE Xe TYPE IN TEXT, TERMINATE EACH RECORD 


1 WITH A CARRIAGE RETURN’ 
TYPE Ky “TERMINATE INPUT WITH A CTRL/Z/ 


READ (SrlivsEND=100> 
FORMAT (Q*80A1) 


LEN = LEN+4 


LEN» INBUF ! Read record! !EX 


! Add 4 for A’s 
tlEXx 


WRITE (1912) (BUFF CT) »sT=isLEN) ! Write record 


FORMAT (80A1) 

GO TO 190 

file and exit 
CLOSE CUNIT=1) 
CALL EXIT 

ENT 


! to file 
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WON DA CdD he 


e TITLE 
> IDENT 
+ ENABL 


+ 


TEST.FILy» 


“a> “€> “a> “E> “Grp “Ed “Ed “E> ‘ED 


*MCALL 
*MCALL 
*MCALL 
*MCALL 
eNLIST 
IOST? + BLKW 
FRINT? Q1iOWs 
BUFF 3 + BLRE 
OBUFFS + BLKE 
ARG? *BLKW 
EFDQIO: .ASCIZ 
EFIQIOs .-ASCIZ 
EFCDOIRS .ASCIZ 
EFCSIO$ .ASCIZ 
+EVEN 
oLIST 
FSRSZ$ 
FOES FOBIF $ 
FORCSA 
FLOP SA 
FILE? NMBLIS 
+ENABL 
START3 OFPENSA 
10$3 MOV 
MOV 
20$% MOVE 
SOR 


File Control Services 


SOLUTION 


LEX102 
/O01/ 


LC s Enable lower case 


File LEX102.MAC 


LEX102 arrends records to the end of the file 
setting the inrut from TI?. 
contains variable length records and can be 
created using the editor. 
and closes the file. 


TEST. FIL 


A “Z terminates ineut 


EXST#C »QIOWSC »QIOWS, DIRS 


FSRSZ$ »FURIFS »NMBLKS 
FURCSAsFUAT&$As FOOF SA 


OFENGHA » FUT $s CLOSES 
BEX § Surrress ASCII 
2 ¢ QIO status block 


IO.WVBeSytvv yy <QKUFF rO% 40> 


80. ¢ User record buffer 

80. § Outreut buffer for 
> error messages 

1 + Argument block for 
9 


$E0MSG 

/TIRECTIVE ERROR ON QIO. ERROR CODE = “40.7 
?I/0 ERROR ON QIO. ERROR CONE = <0.? 

7FCS DIRECTIVE ERROR. ERROR CODE = 40.7 
?FCS I/0 ERROR CODE. ERROR CODE = “40.7? 


REX + Show offsets 

1 5 1 file for record I/0 
¢ File descrirtor block 

» RUFF +80. s User buffer and size 

LyyFILE > use LUN 1 

TEST »FIL § TEST.FIL 

LSE 

FTIR: 9x99 es ERR OPEN for arrends if 


orem failsys CALL ERRI 


¥ 
y 
#80.°R1 + Size of URE 
#BUFF »R2 § Addr of URE 
#° y CRO)4+ + Blank fill record 
R1i+20% > $0 no garbese fill 
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DITROKRS 


OKIO?; 


EXIT: 


5 Error 
ERR1 3 
ERR23 
ERR3?3 


I0: 


FINSET$ 


SHOERR 3 


QIOWSC 


BCC 
MOV 
MOV 
BR 


TSTE 
BGT 
CMPE 
BEQ 
MOVE 


MOV 


MOV 
MOV 


BR 


MOV 
PUTS 
BR 


CLOSES 
BCS 
EXST$C 


File Control Services 


SOLUTION 


TO.-RVB:SeirsTOST» »<BUFF 280,23 


DKIROK 
#EFTQIOsR1 
#$0ISWyR2 
SHOERR 


IOQST 
OKIO 
#IE.EQFsIOST 
EXIT 


IOST RO 


RO» ARG 
#ARGsR2 
#EFUQIOsR1 
SHOERR 


TOSTt2/R1 
#F DBs sR1irERR2 
10% 


#F 08 
ERRS 
EX#SUC ~ 


Frocessing 


TSTE 


REQ 
MOV 


BR 
MOV 


MOVE 


MOV 
MOV 


MOV 
CALL 
MOV 
NIRS 
CLOSES 
EXST$C 
*END 


FsERR+1 (RO) 


10 
#EFCOUIRsR1 


FINSET 
#EFCSIO*R1 


F.ERRCRO) RO 
RO yARG 
#ARGrR2 


#OBRUFF ry RO 
$E0MSG 


Ri»sPRINT+Q. TOPL+ 


#P RINT 
#F 08 
EX$ERR 
START 
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“E> “S> “EP Er “HD SED EP “Sh “Sd “Er “E> “E> “GP EP “EP “EDP “E> “Or SP “OD 


> Or “GD 


ser <a> var PF “er a> ~er “er ar “Er “ad Er “Ed “Er a> “E> “ar “ar 


Read 2 
line from TI? 

Branch om Directive ok 

Set ur for SE 0DMSG 


EKranch to 
and exit 
Check for 
Branch if I/0 ok 
Check for EOF 
If EQr close and exit 
I/O status is sign 
extended and rlaced 
im arsument block 
for $E0MSG call 
Set ur for $EDMSG call 


show error 


I/O error 


Branch to show error 
and exit 

Length of record to Fi 
Write next record 

Get next record 


Close file 


Branch on 
Exit with 


FCS error 
status of 1 


Ttirective error or I/0 
error 

Branch om I/O error 
Set ur for $E0MSG>» 
directive error 

Branch to finish setur 

Set ure for SENMSGs I/0 
error 

FCS error code 
is sign extended and 
Flaced in arg block. 
$ENMSG arsument block. 

Quteut buffer 

Format error messase 

¥ Size of messase 

Frint error message 

Close file 

Exit with status of 2 


SONA CAD GME 


File Control Services 


SOLUTION 


FROGRAM LEX102 


C 
C FILE LEX102.F TN 
C : 
C This task a@rrends records to the file TEST.FIL. 
C The records are inrut from the terminal and coried to 
C the file. The fFrocess stors when the orerator tyres 
C CTRL/Z at the terminal. 
C TEST.FIL contains variable length records and can 
C be created using the editor. 
C 

BYTE RUFF (80) 

INTEGER LEN 
C 
C 
C OFEN FILE 
Cc 
C Tlefault access is seauential 
r Nefault is formatted I/0 for seauential files 

OF EN CUNITT=1»NAME=’TEST.FIL’ » TYPE=/OL D7 + 

1 CARRIAGECONTROL=/“LIST’ sACCESS=’ APPEND? > 
C 

TYPE Ky ‘TYPE IN TEXT» TERMINATE EACH RECORD 

1 WITH A CARRIAGE RETURN’ 

TYFE &Ks’TERMINATE INFUT WITH A CTRL/Z’ 
C Loor . 
10 READ (SrelivsENDN=100) LEN, BUFF ! Read record 
11 FORMAT (Q*s80A1) 
C 

WRITE (1212) (BUFF CI) »T=19sLEN) ! Write record 

12 FORMAT (80A1) ! to file 

GO TO 10 
C Close file and exit 
100 CLOSE CUNT T=1) 

CALL EXIT 

ENII 
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File Control Services 


E33 


SOLUTION 
«TITLE CREFXA 
+IDENT /01/ 
»ENABL LE -y Enable lower case 
5+ , 
> File LEX103.MAC 
9 
’ Modified to use FCS instead of QI0’s to set FFEX 
5 inreut from TI: FEX 
3 : 
5 CREFXA orens FIXEN.ASC for writes infruts records 
+ from TI? and euts them seauentially to the file. 
5 A “x terminates inreut end closes the file. 
3 _ 
*+MCALL EXST#CsQIOWSC sQTOWS os DIRS 
sMCALL FSRSZ$+FDRDES»NMBLKS 
»MCALL FIRCHAsFIIAT#Ar FOOFRSA 
*MCALL- OFENtWs GETS ss PUTS» CLOSES 
*MCALL OFENSR 
«NLIST BEX $ Surrress ASCII 
RSIZ = 30. ’ Record size (bytes) 
TOST?3 +BRLKW 2 ¥ RIO status block 
PRINT? QIOWs TO.WUB es Seole e929 QORUFF yO0+407: 
BUFF ? +RLAE RSIZ ‘¢ User record buffer 
ORUFF 3 BLAKE 80, § Quteut buffer for 
¥ error messages 
ARG? + BRLKW 1 y Argument block for 
 § tEDNSG 
EFOQIO: .ASCIZ /PIRECTIVE ERROR ON QIO. ERROR :CONE = “01.7 
EFIQIO: .-ASCIZ ?1I/70 ERROR ON QIO0O. ERROR CODE = “40.7 
EFCDIR?: .-ASCIZ /FCS DIRECTIVE ERROR. ERROR CODE = “40.7 
EFCSIO: .ASCIZ ?FCS I/0 ERROR COME. ERROR CONE = “~l.? 
»EVEN 
+L IST REX + Show offsets 
FSRSZ$ 2 § 2 files for record I/0 
a e9EX 
FOIE 3 FORDF $ § File descrirtor block 
FORCSA y»yBUFF eRSIZ ¢ User huffer and size 
FOAT$A R-FIXsFU.CReRSIZ § Fixed length recordss 
¥ imelied <CRE<LFS 
FOOFSA ds*sFILE s use LUN 1 
FILE? NMBLK& FIXED» ASC § FIXEN.ASC 


y FOE for TI: 


FORT 3 


QSFETI: 


DEV: 


STARTS 


5 Stay here for 


IOERR? 


OKTIO:; 


EXIT: 


File Control Services 


SOLUTION 
¥3EX 
FORIF $ 9 ¥EX 
FORCSA »BUFFs 30, s URE addr and size» #FEX 
§ defaults to 99 EX 
§ seaquential access #FEX 
FIATtA RK.VARSFO.CR * Fixed length recordss) EX 
5 imelied <CRS<LF> ¥9EX 
FLOFSA 2r0SPTI ¢ Use LUN 2+ dataset 
§ descrirtor at DSPTIssExX 
+WORD LOEVs DEV + Device > 9 EX 
»+WORD 070 § UIC - not meeded forssEX 
y+ TI 9 ¥EX 
»WORT 0+0 ¢ File Name ~- not 99 EX 
y needed for TI? 9 ¥EX 
*ASCITI /TI3/ ¢ ASCII device ¥9EX 
LOEV=,-DEYV 5 79 EX 
«EVEN 5 99 EEX 
*ENABL LSE 
OPENSW #F0Revye¢yeERRI §¢ OPEN? if oren fails,» 
¢ CALL ERR1 
OPENSRK #FURI»9s¢eerERR1 ¢ OPEN "file" om TI: s$#&X 
+ for read ¥¥9EX 
MOV #RSIZ+R1 ¢ Size of URE 
MOV #BUFF yR2 + Addr of URE 
MOVE #° 9 (R2)+ § Blank fill record 
SOR Ri»s20% > $0 nO sarbase fill 
GETS #FQRI § Get record from TI? #sEX 
RCC OKIO § Branch on GETS ok. ¥3EX 
TSTB F.,ERR+1(R0> + I/O error or ¥¥EX 
’ directive error? 99 EX 
BNE NIRERR > Branch om directive #+EX 
, error "  ¥ FEX 
I/O error. Check for “Z. 99 EX 
CMFE #IE.EOF»sF-ERRCRO) § Check for EOF ¥9 EX 
REQ EXIT 5 If EQ» close and exits rEX 
BR Io s It is am I/O errors §5EX 
§ $0 diselay error ¥3EX 
5 messade and exit $9EX 
FUT $ #FDRs » sERR2 y Write next record 
BR 10% - § Get next record 
CLOSES #FIDB § Close file 
BCS ERRS § Branch on FCS error 
CLOSES #FORT § Close "file" at TI? #5EX 
BCS ERR4 § Branch om FCS error 
EXST$C ExsSuc y Exit with status of 1 
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File Control Services 


SOLUTION 
’ Error FProcessins 
ERR1I? 
ERR2 3 
ERR? 
ERR 43 TSTB F-ERR+1 (RO) 
REQ Io 
NIRERR? MOV #EFCOIRsR1 
BER FINSET 
IO: MO #EFCSIO+R1 
FINSET? MOVE F.ERRCRO) RO 
MOV RO» ARG 
MOV #ARGsR2 
SHOERR? MOV #0KUFF »RO 
CALL $ELMSG 
MOV RivyPRINT+Q.IOPL+ 
DIRS PRINT 
CLOSES #FIIB 
CLOSES #FIBI 
EXST$C EX$#ERR 
«ENT START 


£35 


‘> “a> er ar PF Or “er “Er <a> “EP “E> “Er cep cen cer cer “a> “ar “ad 


Tirective error or I/0 
error 

Branch om I/0 error 

Set ur for S$ENMSG» $sEX 
directive error 

Branch to finish setur 
Set ur for $EDMSGs 170 
error 

FCS error code 

is sign extended and 
Flaced in ars block 

$EDMSG arsument block. 

OQuteut buffer 

Format error messase 
+ Size of messase 
Frint error messase 
Close file 

Close "file" at TI? 


3 3EX 
Exit with status of 2 


a 


File Control Services 


SOLUTION 


»TITLE LEX104 
IDENT /01/ 


*ENABL LC * Enable lower case 
5 
¢ File LEX104.MAC 
5 
§ This Frogram orens the file FIXED.ASC and urdates 
y records in the file using random access. The orisinal 
+ file was crested using CREFXA 
»MCALL FIOIBOFSsFOATSAxFIRCSA rs FOOPSAsOFENSU 
+MCALL EXITS#S»QIOWSC »QTOWS» QIOWSS »FUTSR 
*+MCALL CLOSE$»FCSMCS 
FCSMCS 3 Get most of the FCS 
5’ macros (FCSMCS has 
3 MCALLS for mans FCS 
§ macros 
*+NLIST BEX 
RSTZ =30. § Record size (im bytes?) 
IOST?: +BLAW 2 > I/O status block. 
PRINT? QIrOWs IO.WVBsSeyteer ye OUT 20% 40> 
BUFF 3 » BLAKE RSTZ > user record buffer 


EMESI? .ASCIZ /FCS DIRECTIVE ERROR. CONE = “40.7 
EMESI: .ASCIZ ‘FCS I/0 ERROR. CONE = ZI.’ 
OUT? + BLKE 100. § Outreut message buffer 
RUFF 1? *ASCIT S/STHAT’S ALL FOLKS!/ §$ Messade on success 
§ comeletion 
LENI=.-BUFF IL 
ERRMSG? .BLKB 100. > Error message buffer 
MSGERF? .ASCIZ /OETRECTIVE ERROR» CODE = Z0/ 
CNVER? .ASCII /CONVERSION ERROR ON RECORD. NUMBER/ 
LONVER=.-CNVER 
INET? »-ASCII /ZENTER RECORD NUMBER AND TEXT? 7 
LINE T=.-INFT 
»EVEN 


FSRSZé 1 1 file oren for record 


9 
> I/0 
> FOR for file 
FOR? FOBIIF $ sFIIR 
sFU.INS is needed to keer the EOF mark where it is 
FORCSA FLINS!IFID.RANs BUFF ey RSIZ § Random moder URE 
y+ addrs and size 
> Use LUN Ls default 
> filename block 
> Tefault mame FIXED.ASC 


FOOF$A 1»»*TIFNB 


DFNES NMEBELK& FIXED» ASC 
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START $ 


§ Clear 
10%? 


2O$ 8 


GOODS 


’ Close 
EXIT? 


ERR13 
ERR2 3 
ERRS 3 


IOERRS 


*ENABL 


OPENS$U 


huffer 
MOV 
MOV 
MOVE 
SOB 


QTOWSC 


CMFE 
BEQ 
MOV 
CALL 


returned in 


CMPR 
BEQ 


QIOWSC 


BCS 


BR 
FUT ER 


BR 


CLOSES #FOUBsERRS 


QIOWSsC 


BCS 
EXIT$S 


CLOSES 
MOVE 
MOV 


MOV 
TSTE 
BER 
MOV 


BR 
MOV 


to @ll blanks esac 
#RSIZ*R1 

#BUFF yR2 

9 (R2Q)+ 


R2 


File Control Services 


SOLUTION 


LSB 


FU Ry yee ey 9 ERR 


#/ 
Ri» 20% 


“> “ar er a> “TY <a> “eo 


IO.RFReSelyrTOSTy 


#IE.EOF»s TOST 


EXIT 


#RUFF 2 RO 


$¢Clye 
Cit 


#/9x9R2 
GOoOrk 


ERR4 


10% 


| $F DB es eR1is s ERR? 


10% 


ERR4 


#F UB ERRS 


F.-ERRCRO) » RO 


RO»vTOST 


#1OST»R2 
F,ERRt1 (RO) 


ITOERR 


#EMESDsR1 


COMME 


#EMEST »R1 


137 


a> S> “Gr Wr « 


a 
, 
3 
; 


> G> “> Br Eh Gr Wb 


a 
bd 


a 
y 
a 


, 


Sr “E> “G> E> “CP “SP “E> E> Od SD 


“@> “> 


Allow local symbols 
to cross Fsect 


boundaries 


Oren 


time 


file for 
(includes exte 


Record size 
buffer 
Move in a blank 


R20 => 


Continue until 


2 BUFF ¢RSIZ» 2 INT yLINFT ‘$2 


urdate 
rad) 


done 


Fromet and set inmrut 


Check 
If “Zy» 


Moy 2.) 


for 


ns 


exit 
Set ur to convert 
record # to binary 


Check for so00d conversions character after £#ois 
should he 3s 


Is it &@ comma 
Branch on sood 
conversion 
TO.WVBs Seles se CNVERs LONVERs 402 
isrlay error message 


Branch 
error 


or 


directi 


Get next inreut 
Write record to outreut 


file 


Get next inreut 
filer disrlay messager and exit 


Close file 
LO.WVRsSetlves9 ct BUFF1»LENI » 40> 


Writ 


Ve 


e 


messade to orerator 


Branch 


Close file 


on 


error 


Move FCS error code 
to arsument block 
for $EDMSG 

for $E0MSG 

I/O or directive error 


Set wr 
Rranch 
Set 


MESS 
Branch 


or 


ur for 


ge 
to 


I/O err 
air er 


COMMOM 


or 
ror 


code 


Set ur for I/0 error 


MESS e 


ge 


File Control Services 


SOLUTION 


COMME: MOY #0UTsRO Set ur for $ENMSG 
CALL $E0MSG Edit error message 
MOV RivsFRINT+Q.IOFL+2 ¢ Length of error 

$ messedge 

lisrlay error message 

EXIT 


a> Sr 


DIRS #FP RINT 
EXIT$S 


“> “6> 


s Here for directive error on QIO 


ERR4? MOV #ERRMSGyRO ¢ Set ur for SE0MSG 

MOV #MSGERF ¢R1 ; 
MOV #$0ISWeR2 ; 
CALL $E0MSG > Edit message 
QIOWSS #10.,WVBs #5281 exo y SFERRMSGeR1 » 40> 

> Disrleys message 
EXITS Exit 
ENT START 


FROGRAM LEX104 


C 
C File LEX104.FTN 
Cc 
C This task urdates records in the file FIXED.ASC using 
C direct access formatted writes. The original file was 
C created using CREFXA. 
C 
C Mirect access formatted writes sare available in 
; FORTRAN IV-FPLUS and FORTRAN-77 only 
BYTE REC (30) 
Cc 
C Oren file 


OPEN (CUNIT=2»NAME=‘’FIXED.ASC’ sACCESS=‘“OIRECT » 
1 TYPE=’OLD’ »FORM=’FORMATTEND? > 
C Flace blanks in buffer 


10 NO 15 J=1,730 
REC(J)="% ¢ 
pa CONTINUE 


C Read record from terminal 
WRITE (S20) 


20 FORMAT (’¢ENTER RECORD) NUMBER ANT TEXT? 7%) 
READ (SsSOrsEND=900) REC 
20 FORMAT (64A1) 


C Convert record rmumber to integer format 
TECONE ¢(2*s60rREC) NREC 

60 FORMAT (I2) 

C Write record to disk 
WRITE (2°NREC*80) REC 


80 FORMAT (30A1) 
100 GOTO 10 
C “Z inreuty close file and exit 
900 CLOSE (UNIT=2) 
CALL EXIT 
END 
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SOND ODS Whe 


“> > Sd “> SP SP E> Ed 


CR 
LF 
MES13 


LENI 


MES2? 
3 

LEN2 
MES3I3 
MES3INS 
MES4TI3 
MES 4Ir2 
MESSI? 
MESSIN 
RUFF 3 


FOE? 


FILES 


VEN: 
BLOCK: 
IOSE? 


File Control Services 


SOLUTION 


*TITLE BLOCK2 
+ITENT /01/7 
+ENABL LC * Enable lower case 


File LEX105.MAC ¥¥EX 
Modified to work on 2 virtual blocks at a time #sEX 


XKX-BLOCK2? yf romets at TI? for @ virtual block mumber 
and then reads and disrlays that block of *"BLOCK.ASC* 


*MCALL QITOWSsDIR$sQIOWSS »EXST$S 
*MCALL FOBDIFS»FURCSAsFORKSA»FDOFSA»NMBLKS 
*MCALL FSRSZ$*sOFENSRs READS» WALTH$ » CLOSES 


*SETTL MESSAGES 


«NLIST BEX 
= 15 

= 12 

-ASCII /FIRST VIRTUAL BLOCK? / + 3 EX 


E 
= MES1 
*ASCII <CRETLFS/HERE ARE THE BLOCKS ? /<CR><LFS 
E 


= . ~ MES2 

*ASCIZ ’1I/0 ERROR FROM OFENSR: CODE = 0. ’ 
*ASCIZ /UIRECTIVE ERROR FROM OPENSRy CODE = “0.7 
*ASCIZ ‘T/0 ERROR FROM READS» CODE = ZI.’ 

*ASCIZ /UPIRECTIVE ERROR FROM READS, CODE - “0.7 
*ASCIZ ‘I/O ERROR FROM WAITS» CODE = ZI.’ 

*ASCIZ /OIRECTIVE ERROR FROM WAITS» CODE = “40.7 
+ BLAKE BO. § STORE RESPONSE HERE 


+LIST REX 
+EVEN 
*SETTL LOCAL STORAGE 


FSRSZ$ 0 y NO FSR BUFFER NEEDED 
» FOR BLOCK I/0 
FORDE $ y FOR FOR INFUT FILE 
FORCSA FO.RWM y READ/WRITE MODE 
FOURKSA BLOCK21024.991°TOSB ¢ EF 1» BUFFER ADiRy 3 #EX 
» SIZE 
FOUOPSA lysF ILE ¢ LUN i» DFNE 
NMBLKS KBLOCKs ASC > NAME IS BLOCK.ASC 
»WORD Ori » DEFAULT VEN 
+ BLKW w12. » BLOCK BUFFER 99 EX 
+ BLRW 2 
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PROMFT 3 
DIONE $ 


DUMP $ 


START: 


a 


3 Now 


a 


ERR1 3 


IOERR1 3 


ERR2 3 


QIOWs 
QTOWS 
QIOWSs 
+ SBTTL 
OFENSR 


QIRG 
MOV 


CLRE 


MOV 
CALL 
MOV 
REALS 
WAITS 
DIRS 


dumre 16. 


MOV 
MOV 


MOV 
DIRS 
ALI 
SOB 


¢ Now we exit with status = 


MOV 
BR 


+SBTTL 


TSTE 
BEQ 
MOV 
BR 
MOV 
BR. 


TSTE 
BEQ 
MOV 
BR 


File Control Services 


SOLUTION 


IO.RPRsSeissTOSB:+< BUFF yds »MESIT»LENT » ’$> 
y Fromet and get VE # 
TO.WVRsSyivves9cMES2*sLEN2»40> ¢ Lone 
y mhessace 
IO.WVERsSelevee90964.240> § DTliselay of VB 


MAINLINE CONE 


#F0IBs ye yyeERRI 5 Oren file 

#PROMFT > Ask for a VEN 

IOSK+2sRO0 § Fut mull at end 

BUFF CRO) s of digit string 

#BUFF » RO > RO => VUBN 

$COTE § Convert to binary 
Ri»sVBEN+2 § Store as low VEN 
#FDRysrtVENy yy xERRO § Read in the block. 

yx ¥ERRS § Wait until done 

#00NE § Tell them I/0 is done 
lines of 64. characters each ¥ EX 
#BLOCKsRO § RO => Ist line to dume 
#16.°R1 > € of lines to dume ¢FEX 
ROsDUMF+Q.IOPL + Addr of current line 
#DUMP > Tumse it 

#464.9RO * Point at next line 

Riv1% > Dume all 8. lines 

EX$SUC 


#EX$SUC*RS5 > Fut status in RS 

EXIT 3 And then exit 

ERROR ROUTINES 

F.-ERR+1¢°R0) ' I/O or directive error? 
IOQERR1 > Branch om I/O error 
#MES30R1 5 => [lir error message 3 
FCSERR § Branch to common code 
#MESSI RIL ¢ => JT/O error messade 3 
FCSERR * Branch to common code 


F.-ERR+1 (RO) I/O or directive error? 


; 
IOERR2 > Branch on I/O error 
$MES40xR1 5 => Tir error messase 4 
FCSERR > Branch to common code 
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File Control Services 


SOLUTION 
101 IOERR2: MOV #MES4I°R1 y => I/O error message 4 
102 RR FCSERR y Rranch to common code 
103 ERR3 3 
104 TSTE F,ERR+1 (RO) ¢ I/O or directive error 
1035 REQ IOERRS ¥ Branch om I/O error 
106 MOV #MESSOeR1I s => Tir error message S 
107 © BR FCSERR ¥ Branch to common code 
108 IOERR3: MOV #MESSI*R1 y => T/O error message 3 
109 + FALL INTO COMMON CODE 
110 FCSERR? 
1it MOVE FYLERRCRO) es R2 ¢ Sistn extend error code 
112 MOV R2»IOSE y and move into IOSKE 
113 MOV #EX$ERR YRS y Exit status in RS 
114 FORMAT? AG 
115 MOV #IOSB*sR2 + Set ur for $EDMSG 
116 MOV #BUFF +RO ; 
117 CALL $E0MSG - : = 
118 QIOWSS F#LIO.WVBy #5 e8¢1 yo ey CEBUFF x R1 + 840> ¢ Diselay 
119 5 messaste 
120 EXIT? 
121 CLOSES #FIB y Close the file 
122 EXST$S RS § Exit with status 
123 »END START 
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45 


49 


File Control Services 


SOLUTION 
eTITLE CSI 
eIDENT /O1/ 
*ENABL LC § Enable lower case 


File LEX106.MAC 

Modified to actually delete or disrley the file 9 HEX 

CSI illustrates the use of the command strings 

interrereter. This task accerts 3s command line from the 

terminal in the form? 
devilxyylfilename. filetyures version/switch 

where switch can be? 


NE - Tlelete file 
DIIN - Disrelay N cories of file 


“E> “GP @> > SP “EP SEP “SP A> “EP “Ad SP D> “EP 


*MCALL GCMLE¢»GCML$»CSI$»sCSI$1 »CST$2 

*MCALL CST¢SV»CSTSSWeCSTENT 

*MCALL FSRSZ$»FDURBIF Ss FURCSAsFUOPSAsFINITS 
*MCALL QTOWSS sQTOWS so NIRS es EXITSS 

*MCALL TDELETSsOPFENSR sy OPENSWs GETS» PUTS » CLOSES 


+«NLIST BEX 
3 LOCAL DATA 
TYFEL: QrOWs TO.WVBySelvey eZ ERRI ye SIZ12 40> 
TYPE23 QIOWs IO.WVB Seley eS ERR29STZ2% 40> 
TYFES$ QITOWS IO.WVBeSeleys x2 ERRS x STZ3 9 40> 


TYFE43 QIOWsS TO.WVBsSvivevy ec BUFF ss 40> 95 EX 

ERR 3 *ASCII /GET COMMAND LINE ERROR/ 
SIZ1=.-ERR1L 

ERR2 3 eASCII /CSI ERROR. ILLEGAL COMMAND / 
SIZ2=.-ERR2 

ERR3? *ASCII /CSI ERROR. FILE SFEC ERROR/ 
SIZ3=.~ERR3 

BUFF 3 + BLINE 100, § Outeut text buffer 

TBUFF ? + BLAKE 132. § Transfer buffer 

FMT? ~ASCIZ /YOU HAVE REQUESTED A Z7A JOB/ 

FMTERD? .ASCII /FCS DIRECTIVE ERROR ON Z47A./ ¥ 3 EX 
*ASCIZ / CODE = “40.7 99 EX 

FMTERI? .ASCIZ ?FCS I/0 ERROR ON “7A. CODE = “40. Ps sEX 
«EVEN 

DATA? + BLKW 2 ys Arsument block  #3EX: 

QNELTXT? »-ASCII /DELETE/<O> ¢ ASCII text 


QITXTS .ASCIE /DISFLAY/ 
NOTXT$: -.ASCII /NOTHING/ 


CLIXT$ +ASCIT /CLOSE/<O><0> § For close ¥9EX 


“+EVEN 
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File Control Services 


SOLUTION 
CSIs ; Lefine CSI offsets 
CBLKE + BLKE C.SIZE y allocate CSI storage 
EVEN 
DEMSK = 1 Delete mask. 
QIMSK = 2 Ttisrlay mask. 


SWTEL? Switch descrirtor table 
Tlelete switch = [IE 
tliselay switenh = [I» 


@lso allow DItn 


CSI$SW DEsTEMSK 
CSISSW [Tes DIMSKs » » »NUM 


“@> “> Gr Wd Eh “EP “Ed 


CSI¢NI End of switch table 
CSI$¢SV OCTAL SCOP Ys2»NUM? Value N for /DIIN is 
y im octal and will 
¢ he stored in COFY 
CSI#NQi s End of switch value 
5 table 
s;GET COMMAND LINE BLOCK DEFINITIONS 
FSRSZ$ 3 . 5 GCOML uses record I/Os 5EX 


GELK? GCMLBS »sCSI+%5 Fromet with ‘CSI’ on 
LUN & 

FOB for file to delete 
or disrlay. 

URE AT TRUFF, lensth 
132. 

LUN 1» dataset 

descrirtor from CST 


FOE? FOBDF S$ 
FORC$A »TRUFFs132. 


FIOPSA trCBLAK+C.0S0S 


“> > E> “E> “EDP “EP “SP “Ed 


y NOTE: Need a 2nd FOUR for disrlay 


FIBO? FOB $ > FOR for outrut to TItssEXx 
FOIAT$A R.VARYFO.CR § Var lensdth records, §#FEX 
§ list format 7 ¥EX 
FIRCSA » TBUFF»132, §’ URB at TRUFF:, lengths sEXx 
§ 132. 99 EX 
FHOFSA 2rDSFTO § LUN 2s dataset ¥9EX 
} descriptor at ISFTO +sEXx 
DSFTO: .WORD LOEV» TEV + Dataset descrirtor #5EX 
»WORT 09 § for TIt. No UIC or ##EX 
»WORD O#0 j name needed. + 3EX 
HEV? *ASCII /TItZ 3 + 9EX 
LOEV=,.-DEV F] 9 9EX 
+EVEN 


JMPTBL? .WORD NONE DELETE sDISFLY ¢ Jume table for 

y subroutines derending 
y on switches 
3 


COFY: «WORT 1 Value for N in /DIGN 
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101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
itt 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 

22 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 


File Control Services 


SOLUTION 


-ENABLE LSB 


STARTS FINITS 


C> “Sr “rp Wr rp “E> E> 


NEXT? GCML$ #GBLK 
BCC 104 
§ Check for “Z. If “Z» exit. 
CMPE © #GE.E0F rGBLKtG. ERR 
BNE REALER 
. -, EXIT$S © 
REALER?: IRS #TYFE1 


“> “Sr “> ]>? E> 


EXITS 
¢ Parse input for illegal characte 
10$3 CSI$¢i1 #CBLK»yGRLK+G.CMLIV 
; 
; 
, 
BCC 208 9 
HIS. ¥#TYFE2 ] 
; 
EXITS ; 


a 


+ Create a dataset descrirtor from 
20S? CSI¢2 #CBLK es OUTFUT,s #SWTER 


BCC 50% 
NIRS #TYFES 


> ‘> “> “Cd 


EXITS 


a 


5 Call the a@rrrorriate subroutine 


CALL @JMFPTBL (RI) 
RR NEXT 


3083 MOV = #F By RO ; 
| ; 

MOV CBLK+C.MKWiyR1 3 

: ; 

ASL RA ; 

; 

; 

; 


9 Subroutine NONEs entered if mo s 


NONE? MOV #NOTXT*s DATA , 
3 
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Initialize FCS» this 
is normally done with 
an OFEN statement. 
For delete we do not 
need an oren statement. 

Fromet and set command 

Branch if command OK 


y Is it “2? 
Branch on other error 
Exit — 
liselay error text for 
set command line error 
Exit 


TS 


29GRLKt+G.CMLO § Format 

is CSI addrsy addr of 

commands length of 

command 

Rranch om OK command 

DTiselay error text for 
illesal command 


Exit 


the file srecification 


L. § Exrect outeut file 
5 $Frec 
Branch on file srec OK 
Tlisrelay text for file 
srec error 
Exit 


Address of file 


 deserirtor 


Mask value = O» ly or 2 


Tlouble for word offset 
into Jumr table 

Call the subroutine 

Get next command line 


Witches srecified 


Set ur for outrut of 
nessade 


File Control Services 


SOLUTION 
151 CALL QUTMS * Call OQUTMS»y as a ¥9EX 
152 ; § subroutine ~ ¥9EX 
153 RETURN § Return 99 EX 
154 
135 > Common disrelay message code - @ Subroutine since it #F#EX 
1564 y is mot & common return roint ¥¥EX 
157 
158 QUTMS? MOV ¥BUFF 9» RO § Set ur for $E0MSG 
159 MOV $F MT oR ; 
160 MOV #0ATAsR2 ; 
161 CALL $EDMSG > Edit messase 
162 QLIOWSS #IO.WVBs #541925 7ct BUFF eR #402 ¢ Diselay 
1463 RETURN § Return 
164 
165 y Subroutine DELETE 
146 ; 
167 § KKKXWARNING -— THE HIGHEST VERSION NUMBER OF THE FILE *xx 
168 ¢ *KXKXWILL BE DELETED IF NO VERSION NUMBER IS SPECIFIED xxx 
169 - 4 
170 DELETE? MOV #0QELTXT»DATA 5 Set ur for outeut of 
171 y messaste 
172 CALL QUTMS ¢ Call disrlay #3EX 
173 § subroutine ¥9EX 
174 DELET$ #F OR, ERRD ’ Telete file #3 EX 
1735 RETURN § Return 
176 +; LTelete error code 
177 ERRIN: MOVE > F.ERR CRO) + RS § Extend sign om errors EX 
178 MOV ~ RS*TATA+2 ; and move to ars block sEX 
179 MOV #UELTXT»s DATA + Move rointer to deletes FEX 
180 § text ¥9EX 
181 COMME: TSTE F.ERR+1 (RO) § Check for directive #3EX 
182 - $ error or I/O error ##EX 
183 REQ IOERR § Branch on I/O error $3%EX 
184 MOV #FMTERDIty RA + Get format string 7 ¥EX 
185 _BR QISFER > Branch to common ¥9EX 
1864 y error disrlay code #sEX 
187 IOERR? MOV #FMTERI + RI > Get format string + ¥EX 
188 DISFER? MOV #BUFF x RO § Set ur for $E0MSG6 9 3EX 
189 MOV #0ATAsR2 ¥ 7 3 #EX 
190 CALL $E0MSG y Edit message | $3EX 
191 MOV RivTYPE4+Q.IOFPL+2 ¢ Size of messade 9 3EX 
192 IRS #TYFE4 ’ Disrlay message ¥3EX 
193 EXIT$S ¢ Exit ¥3EX 
194 . 
1935 ¢ Subroutine DISFLY - Just disrlay a message 
196 - 
197 QISFLY? CALL $SAVAL § Save all resisters 
198 MOV #0TTXT » TATA + Set ur for outeut of 
199 5 messade 
200 CALL OUTMS > Branch to common 
201 § disrlay code 
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202 


203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
299 


223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
2435 
246 
247 
248 
1249 
250 


GET: 


File Control Services 


SOLUTION 


OPENSR #FIiRy sys» yERRE 
OPENGW #FDBOs sss» 2ERRE 


; 

3 

MOV COPY »R4 ; 
j 

MOV #F TB» RO ; 
, 

CALL oMARK 9 
; 

, 

; 

, 

BCS ERRE 3 
GETS #F OR ; 
BCS CHECK , 


Oren file for inreut 

Oren TI for outrut 

Number of cories to 
R4 

Addr of FOB of inrut 
file 

Save rointers to 
first record for 
resetting. Fointers 
are returned in Ri» 
R29R3 

Branch om error 

Get record from file 

Branch on error 


+ Stay here if OK get -— outrut record to TI? 


5 Error 
CHECK? 


+ ‘More 
5 file 
AGAIN? 


a 


§ Here 
ERRE 3 


a 


3 Here 
ERRC? 


MOY F .NRBDICRO) » FOBO+F 
PUTS #FDBOs» sERRE ; 
BR GET ¥ 
code 


CMPB #IE.EOFsF-ERRCRO) 
BNE -ERRE 


NEC R4 
BNE AGAIN 
MOV #1+COFY 


CLOSES #FUBsERRC 
CLOSES #F0BO,ERRC 


“S> “@> “> “G> “E> “Od 


»NRED ¢ Move lensth of 
record to FIIBO 
Diselay record at TI? 
Get next record 


¢ Check for EOF 

Branch if not : 
Tlecrement cory counter 
Rranch if more to do 
Reset number of cories 
Close file 

Close TI? 


RETURN : 

cories to do - reset rointers to start of inreut 
and rereat 

CALL «POINT RisR2sR3 are still set 
BCC GET liselay next cory 

for errors on FUT$s: GET$s» and .POINTs 

MOVE F.-ERR CRO) » RS Extend sign and move 
MOV RSs TATAt2 error code to IATA 
MOV #0ITXTs DATA Move display function 


CLOSES #FDRyERRC 
CLOSES  #FORO»ERRC 
BR COMME 


> G> “E> “Er “E> E> “Er ~e> [ff E> <e> 


for errors om close 
MOVE F.-ERRCRO) 2 RS ; 
MOV RS*DATAt2 ; 
MOV #CLTXTs DATA ; 
; 
JMP COMME 5 
] 

ENT START 
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for display 
Close files 


Branch to common error 
code 


Extend sidn and move 
error code to DATA 
Move close text for 
disrlay 

‘Jump to common error 
code 


